os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

False [] range "\w-" in regex

Browse source 
Submitted by: perl5.8.8 -cw -T url.cgi
This commit is contained in:
Wolfram Schneider 2007-03-19 17:52:39 +00:00
parent 73d0abb8f3
commit 99c167417c
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=29841
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
en/cgi/url.cgi
View file

@ -26,7 +26,7 @@
#
# url.cgi - make plain text URLs clickable
#
# $FreeBSD: www/en/cgi/url.cgi,v 1.33 2004/04/04 21:49:38 phantom Exp $
# $FreeBSD: www/en/cgi/url.cgi,v 1.34 2005/10/20 20:03:36 fenner Exp $
use strict;
@ -60,7 +60,7 @@ $file =~ s%/pkg/DESCR$%/pkg-descr%;
# print HTML header
$file =~ s%(http|ftp)://ftp.FreeBSD.org/pub/FreeBSD/(branches/|FreeBSD)-current/%%i;
if ($file =~ m%^ports/([\w-]+)/(\w[\w-+.]+)/pkg-descr%) {
if ($file =~ m%^ports/([\w\-]+)/(\w[\w\-+.]+)/pkg-descr%) {
print &html_header(
"Port description for $1/$2");
$portcategory = $1;
@ -68,7 +68,7 @@ if ($file =~ m%^ports/([\w-]+)/(\w[\w-+.]+)/pkg-descr%) {
print &short_html_header($file);
}
my $isvalidfilename = ($file =~ m%^ports/[\w-]+/\w[\w-+.]*/pkg-descr%);
my $isvalidfilename = ($file =~ m%^ports/[\w\-]+/\w[\w\-+.]*/pkg-descr%);
my $atticfile = $file;
$atticfile =~ s%^(.*)/([^/]+)$%$1/Attic/$2%;
@ -123,7 +123,7 @@ print $content;
print "</pre>\n";
# Add 'source' link for freebsd ports
if ($file =~ m%^(ports/[\w-]+/\w[\w-+.]+)/pkg-descr%) {
if ($file =~ m%^(ports/[\w\-]+/\w[\w\-+.]+)/pkg-descr%) {
print qq{<HR><a href=\"pds.cgi?$1">Sources</a> |\n};
print qq{<a href=\"../ports/$portcategory.html">};
print qq{Category $portcategory</a>\n};