diff options
| author | Andrey A. Chernov <ache@FreeBSD.org> | 2000-07-02 03:42:55 +0000 |
|---|---|---|
| committer | Andrey A. Chernov <ache@FreeBSD.org> | 2000-07-02 03:42:55 +0000 |
| commit | 21c0d323749f6e36e6ecaf43202a59164f7663f0 (patch) | |
| tree | 1b5bc1178a96b9af12835019c6b6538f649627e5 /www | |
| parent | Update to 1.4.4. (diff) | |
Fix wrong range in RE
Notes
Notes:
svn path=/head/; revision=30056
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); |