mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-24 04:33:24 +00:00
Code Issues Releases Activity

Fix wrong range in RE

Browse Source
This commit is contained in:
Andrey A. Chernov 2000-07-02 03:42:55 +00:00
parent 7e2c85ee93
commit 21c0d32374
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=30056
1 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
www/webglimpse/files/patch-ag
View File

@ -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);