enhancements for package wwwurl
MAS Erwan - 00 (emas@bondy.orstom.fr)
Wed, 13 Mar 1996 10:27:28 +0100
hello,
the function parse() who parse a URL , not return the default port for the url .
I think is better that this function return always a number in field port , when is
possible .
so my patch is :
*** wwwurl.pl Wed Mar 13 10:10:44 1996
--- orig-version/wwwurl.pl Wed Mar 13 10:17:39 1996
***************
*** 134,155 ****
if ($url =~ s/#([^#]*)$//) { $frag = $1; }
}
if (($member & $UsesNetloc) && ($url =~ m#^//#o))
{
$url =~ s#^//([^/]*)##;
$address = $1;
if ($address =~ s/:(\d*)$//)
{
$port = $1;
- } elsif (defined($DefPort{$scheme})) {
- $port = $DefPort{$scheme};
}
}
if ($member & $UsesQuery)
{
if ($url =~ s/\?(.*)$//) { $query = $1; }
}
$path = $url;
--- 134,153 ----
--
____________________________________________________________
/ /\
| Erwan MAS |_/
| mailto:emas@bondy.orstom.fr http://www.orstom.fr/~emas/ |
___|________________________________________________________ |
\___________________________________________________________\__/