… | |
… | |
529 | while ( |
529 | while ( |
530 | m{ |
530 | m{ |
531 | \G\s* |
531 | \G\s* |
532 | (?: |
532 | (?: |
533 | expires \s*=\s* ([A-Z][a-z][a-z]+,\ [^,;]+) |
533 | expires \s*=\s* ([A-Z][a-z][a-z]+,\ [^,;]+) |
534 | | ([^=;,[:space:]]+) (?: \s*=\s* (?: "((?:[^\\"]+|\\.)*)" | ([^=;,[:space:]]*) ) )? |
534 | | ([^=;,[:space:]]+) (?: \s*=\s* (?: "((?:[^\\"]+|\\.)*)" | ([^;,[:space:]]*) ) )? |
535 | ) |
535 | ) |
536 | }gcxsi |
536 | }gcxsi |
537 | ) { |
537 | ) { |
538 | my $name = $2; |
538 | my $name = $2; |
539 | my $value = $4; |
539 | my $value = $4; |
… | |
… | |
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 |