Decode headers with latin-1 not ascii

Fixes #29
raku-community-modules · Nov 27, 2018 · 5774fd3 · 5774fd3
1 parent 56ef211
commit 5774fd3
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,3 +1,7 @@
+2018-11-27  JNS
+
+    * Decode headers with latin-1 not ascii to fix #29
+
 2018-04-15  Juan J. merelo  <jmerelo@penny>
 
 	* META6.json: Bumps up version, since it passes tests with new rakudo.org and there's no need to --force to install it.

diff --git a/META6.json b/META6.json
@@ -1,7 +1,7 @@
 {
     "perl"         : "6.*",
     "name"         : "LWP::Simple",
-    "version"      : "0.105",
+    "version"      : "0.106",
     "description"  : "LWP::Simple quick & dirty implementation for Rakudo Perl 6",
     "depends"      : [ "MIME::Base64", "URI" ],
     "test-depends" : [ "JSON::Tiny" ],

diff --git a/lib/LWP/Simple.pm b/lib/LWP/Simple.pm
@@ -327,7 +327,7 @@ method parse_response (Blob $resp) {
     if ($header_end_pos < $resp.bytes) {
         my @header_lines = $resp.subbuf(
             0, $header_end_pos
-        ).decode('ascii').split(/\r\n/);
+        ).decode('latin-1').split(/\r\n/);
         my Str $status_line = @header_lines.shift;
 
         for @header_lines {