unbreak .lines on parrot, colomon++

rakudo · Sep 7, 2014 · bf66354 · bf66354
1 parent 22a4c05
commit bf66354
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/IO/Handle.pm b/src/core/IO/Handle.pm
@@ -109,7 +109,7 @@ my class IO::Handle does IO::FileTestable {
 
         if $.chomp {
             gather until nqp::eoffh($!PIO) {
-                take nqp::readlinefh($!PIO).chomp;
+                take nqp::p6box_s(nqp::readlinefh($!PIO)).chomp;
                 $!ins = $!ins + 1;
             }
         }
@@ -130,7 +130,7 @@ my class IO::Handle does IO::FileTestable {
         if $.chomp {
             gather while $count-- {
                 last if nqp::eoffh($!PIO);
-                take nqp::readlinefh($!PIO).chomp;
+                take nqp::p6box_s(nqp::readlinefh($!PIO)).chomp;
                 $!ins = $!ins + 1;
             }
         }