diff options
| author | ache <ache@FreeBSD.org> | 2000-07-02 11:42:55 +0800 |
|---|---|---|
| committer | ache <ache@FreeBSD.org> | 2000-07-02 11:42:55 +0800 |
| commit | 2da6720a8948854465e5735ef532a5654cc559ac (patch) | |
| tree | cb40390d5e241ae498a1fa11955291e26e1f8c52 /www | |
| parent | 7f1718cdaa7d1d8e04857538106c2528b99525a5 (diff) | |
| download | freebsd-ports-gnome-2da6720a8948854465e5735ef532a5654cc559ac.tar.gz freebsd-ports-gnome-2da6720a8948854465e5735ef532a5654cc559ac.tar.zst freebsd-ports-gnome-2da6720a8948854465e5735ef532a5654cc559ac.zip | |
Fix wrong range in RE
Diffstat (limited to 'www')
| -rw-r--r-- | www/webglimpse/files/patch-ag | 31 |
1 files changed, 29 insertions, 2 deletions
diff --git a/www/webglimpse/files/patch-ag b/www/webglimpse/files/patch-ag index bf6d5b9d829a..43028eaa47f5 100644 --- a/www/webglimpse/files/patch-ag +++ b/www/webglimpse/files/patch-ag @@ -1,5 +1,5 @@ ---- lib/URL.pl.bak Fri Jan 9 08:58:41 1998 -+++ lib/URL.pl Mon Nov 2 11:49:57 1998 +--- lib/URL.pl.orig Fri Jan 9 08:58:41 1998 ++++ lib/URL.pl Sun Jul 2 07:39:30 2000 @@ -49,7 +49,10 @@ $host =~ tr/A-Z/a-z/; $port = ($3 ne "" ? $3 : $ftp_port); @@ -12,3 +12,30 @@ $userid = $1; $passwd = $2; } else { +@@ -102,7 +105,7 @@ + # URL of type: http://host[:port]/path[?search-string] + + if ($protocol eq "http") { +- if ($url =~ m#^\s*\w+://([\w-\.]+):?(\d*)([^ \t]*)$#) { ++ if ($url =~ m#^\s*\w+://([\w\-\.]+):?(\d*)([^ \t]*)$#) { + $server = $1; + $server =~ tr/A-Z/a-z/; + $port = ($2 ne "" ? $2 : $http_port); +@@ -137,7 +140,7 @@ + # URL of type: gopher://host[:port]/[gtype]selector-string[?search-string] + + if ($protocol eq "gopher") { +- if ($url =~ m#^\s*\w+://([\w-\.]+):?(\d*)/?(\w?)([^ \t\?]*)\??(.*)$#) { ++ if ($url =~ m#^\s*\w+://([\w\-\.]+):?(\d*)/?(\w?)([^ \t\?]*)\??(.*)$#) { + $server = $1; + $server =~ tr/A-Z/a-z/; + $port = ($2 ne "" ? $2 : $gopher_port); +@@ -152,7 +155,7 @@ + # URL of type: wais://host[:port]/database?search-string + + if ($protocol eq "wais") { +- if ($url =~ m#^\s\w+://([\w-\.]+):?(\d*)/?([^\?]+)\??(.*)$#) { ++ if ($url =~ m#^\s\w+://([\w\-\.]+):?(\d*)/?([^\?]+)\??(.*)$#) { + $1 =~ tr/A-Z/a-z/; + $server = $1; + $port = (defined($2) ? $2 : $wais_port); |