diff --git a/acme-tinier.pl b/acme-tinier.pl index 6ff2a86..1c32124 100755 --- a/acme-tinier.pl +++ b/acme-tinier.pl @@ -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 }) }