p/acme-tinier
Archived
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Support HTTP/2 responses

Browse Source
This commit is contained in:
Přemysl Eric Janouch 2019-10-02 23:56:30 +02:00
parent 361e0e52e0
commit b99a6ec8b2
Signed by: p
GPG Key ID: A0420B94F92B9493
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
acme-tinier.pl
View File

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