bin/http-request

sergot · Jun 6, 2014 · d9b4713 · d9b4713
1 parent 2b0e620
commit d9b4713
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/bin/http-request b/bin/http-request
@@ -1,4 +1,6 @@
 #!/usr/bin/env perl6
 use HTTP::UserAgent :simple;
 
-
+sub MAIN($url) {
+    getprint($url);
+}
diff --git a/lib/HTTP/UserAgent.pm6 b/lib/HTTP/UserAgent.pm6
@@ -51,7 +51,7 @@ sub get(Str $url) is export(:simple) {
     my $ua = HTTP::UserAgent.new;
     my $response = $ua.get($url);
 
-    return $response.content;
+    return $response.decoded-content;
 }
 
 sub head(Str $url) is export(:simple) {