|
|
|
@ -57,7 +57,7 @@ sub get {
|
|
|
|
|
my $resp = communicate(@args, $url, $data);
|
|
|
|
|
die 'cannot download' if $? >> 8;
|
|
|
|
|
my ($code, $headers, $body) =
|
|
|
|
|
$resp =~ m#\AHTTP/\d\.\d (\d+) .*?\r\n(.*?)\r\n\r\n(.*)#sm;
|
|
|
|
|
$resp =~ m#\AHTTP/\d(?:\.\d)? (\d+) .*?\r\n(.*?)\r\n\r\n(.*)#sm;
|
|
|
|
|
return ($code, $body, { $headers =~ /(\S+?): (.*)\r\n/mg })
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|