Streamline IO::ArgFiles.get

rakudo · Nov 29, 2014 · 3be8fcd · 3be8fcd
1 parent 0b64cc4
commit 3be8fcd
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/src/core/PIO.pm b/src/core/PIO.pm
@@ -27,14 +27,15 @@ my role PIO {
     method get(PIO:D:) {
         return Str if self.eof;
 
-        my Str $x := nqp::p6box_s(nqp::readlinefh($!PIO));
+        my \line = $!chomp
+          ?? nqp::p6box_s(nqp::readlinefh($!PIO)).chomp
+          !! nqp::p6box_s(nqp::readlinefh($!PIO));
+
         # XXX don't fail() as long as it's fatal
         # fail('end of file') if self.eof && $x eq '';
-        $x .= chomp if $.chomp;
-        return Str if self.eof && $x eq '';
-
+        return Str if self.eof && line eq '';
         $!ins = $!ins + 1;
-        $x;
+        line;
     }
 
     method getc(PIO:D:) {