Make sure $!ins is up to date, pmichaud++

rakudo · Oct 12, 2014 · 7f8d176 · 7f8d176
1 parent 94240b4
commit 7f8d176
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/core/IO/Handle.pm b/src/core/IO/Handle.pm
@@ -301,12 +301,13 @@ my class IO::Handle does IO {
 #?if parrot
                     my Mu $line := nqp::readlinefh($!PIO);
                     last if nqp::eoffh($!PIO);
+                    $!ins = $!ins + 1;
                     take nqp::p6box_s($line).chomp;
 #?endif
 #?if !parrot
+                    $!ins = $!ins + 1;
                     take nqp::p6box_s(nqp::readlinefh($!PIO)).chomp;
 #?endif
-                    $!ins = $!ins + 1;
                 }
                 self.close if $close;
             }
@@ -317,12 +318,13 @@ my class IO::Handle does IO {
 #?if parrot
                     my Mu $line := nqp::readlinefh($!PIO);
                     last if nqp::eoffh($!PIO);
+                    $!ins = $!ins + 1;
                     take nqp::p6box_s($line);
 #?endif
 #?if !parrot
+                    $!ins = $!ins + 1;
                     take nqp::p6box_s(nqp::readlinefh($!PIO));
 #?endif
-                    $!ins = $!ins + 1;
                 }
                 self.close if $close;
             }