Fix recv with no length specified.

rakudo · Feb 16, 2014 · d9c8083 · d9c8083
1 parent f35ca0b
commit d9c8083
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/core/IO/Socket.pm b/src/core/IO/Socket.pm
@@ -70,10 +70,12 @@ my role IO::Socket does IO {
 #?endif
 #?if moar
         if $bin {
-            nqp::readfh($!PIO, nqp::decont(buf8.new), $chars);
+            nqp::readfh($!PIO, nqp::decont(buf8.new),
+                $chars == $Inf ?? 1048576 !! $chars.Int);
         }
         else {
-            nqp::p6box_s(nqp::readcharsfh($!PIO, $chars));
+            nqp::p6box_s(nqp::readcharsfh($!PIO,
+                $chars == $Inf ?? 1048576 !! $chars.Int));
         }
 #?endif
     }