Re-allow Inf as an argument to .recv.

This got broken in recent refactoring, and the module ecosytem was relying on it.
rakudo · May 26, 2017 · 0b67e67 · 0b67e67
1 parent 807d99f
commit 0b67e67
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/IO/Socket.pm b/src/core/IO/Socket.pm
@@ -13,8 +13,9 @@ my role IO::Socket {
     }
 
     # The if bin is true, will return Buf, Str otherwise
-    method recv(Int(Cool) $limit = 65535, :$bin? = False) {
+    method recv(Cool $limit? is copy, :$bin? = False) {
         fail('Socket not available') unless $!PIO;
+        $limit = 65535 if !$limit.DEFINITE || $limit === Inf;
         if $bin {
             nqp::readfh($!PIO, nqp::decont(buf8.new), $limit)
         }