fixes for supply stuff

raku-community-modules · Nov 4, 2016 · 77acd1b · 77acd1b
1 parent bf96344
commit 77acd1b
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 3 deletions.
diff --git a/.gitignore b/.gitignore
@@ -0,0 +1,2 @@
+.precomp
+
diff --git a/lib/HTTP/Server/Threaded.pm6 b/lib/HTTP/Server/Threaded.pm6
@@ -49,7 +49,7 @@ class HTTP::Server::Threaded does HTTP::Server {
 
   method !conn {
     start {
-      $!connections.tap( -> $conn {
+      $!connections.Supply.tap( -> $conn {
         my Buf  $data .=new;
         my Blob $sep   = "\r\n\r\n".encode;
         my ($stop, $buf);

diff --git a/lib/HTTP/Server/Threaded/Response.pm6 b/lib/HTTP/Server/Threaded/Response.pm6
@@ -14,8 +14,9 @@ class HTTP::Server::Threaded::Response does HTTP::Response {
       my @pairs = %.headers.keys.map({ 
         "$_: {$.headers{$_}}"
       });
-      await $.connection.print("HTTP/1.1 $.status {%!statuscodes{$.status}}\r\n");
-      await $.connection.print(@pairs.join("\r\n") ~ "\r\n\r\n");
+      $.connection.print("HTTP/1.1 $.status {%!statuscodes{$.status}}\r\n");
+      $.connection.print(@pairs.join("\r\n") ~ "\r\n\r\n"); 
+      CATCH { default { $_.say; } };
     };
   }