Fix conditional comp mess-up; FROGGS++.

rakudo · Feb 16, 2014 · 230a54b · 230a54b
1 parent 385ae4e
commit 230a54b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/core/IO/Socket.pm b/src/core/IO/Socket.pm
@@ -93,6 +93,7 @@ my role IO::Socket does IO {
         } while nqp::chars($res) < $bufsize && nqp::chars($read);
         nqp::encode(nqp::unbox_s($res), 'binary', buf8.new);
 #?endif
+#?if !parrot
         my $res = buf8.new();
         my $buf;
         repeat {
@@ -101,6 +102,7 @@ my role IO::Socket does IO {
             $res ~= $buf;
         } while $res.elems < $bufsize && $buf.elems;
         $res;
+#?endif
     }
 
     method poll(Int $bitmask, $seconds) {