| … | |
… | |
| 713 | |
713 | |
| 714 | my $proxy = $arg{proxy} || $PROXY; |
714 | my $proxy = $arg{proxy} || $PROXY; |
| 715 | my $timeout = $arg{timeout} || $TIMEOUT; |
715 | my $timeout = $arg{timeout} || $TIMEOUT; |
| 716 | |
716 | |
| 717 | my ($uscheme, $uauthority, $upath, $query, undef) = # ignore fragment |
717 | my ($uscheme, $uauthority, $upath, $query, undef) = # ignore fragment |
| 718 | $url =~ m|(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:(\?[^#]*))?(?:#(.*))?|; |
718 | $url =~ m|^([^:/?#]+):(?://([^/?#]*))?([^?#]*)(?:(\?[^#]*))?(?:#(.*))?$|; |
| 719 | |
719 | |
| 720 | $uscheme = lc $uscheme; |
720 | $uscheme = lc $uscheme; |
| 721 | |
721 | |
| 722 | my $uport = $uscheme eq "http" ? 80 |
722 | my $uport = $uscheme eq "http" ? 80 |
| 723 | : $uscheme eq "https" ? 443 |
723 | : $uscheme eq "https" ? 443 |
