Make IO::Handle.lines push unboxed strings

rakudo · Sep 14, 2015 · 1391588 · 1391588
1 parent 2475abf
commit 1391588
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/core/IO/Handle.pm b/src/core/IO/Handle.pm
@@ -357,7 +357,8 @@ my class IO::Handle does IO {
                     else {
                         nqp::bindattr_i($!handle, IO::Handle, '$!ins',
                             nqp::add_i(nqp::getattr_i($!handle, IO::Handle, '$!ins'), 1));
-                        nqp::p6box_s(nqp::readlinefh($!PIO)).chomp
+                        # XXX until we have nqp::readlinefhchomp
+                        CHOPCRLF(nqp::readlinefh($!PIO));
                     }
                 }
             }.new(self, $close));
@@ -372,7 +373,7 @@ my class IO::Handle does IO {
                     else {
                         nqp::bindattr_i($!handle, IO::Handle, '$!ins',
                             nqp::add_i(nqp::getattr_i($!handle, IO::Handle, '$!ins'), 1));
-                        nqp::p6box_s(nqp::readlinefh($!PIO))
+                        nqp::readlinefh($!PIO);
                     }
                 }
             }.new(self, $close));