Fix IO::CatHandle.read switching handles too soon

Phixes R#1313, but makes .tell/.seek tests fail. It's possbile the tests are bogus.
rakudo · Dec 19, 2017 · 33b3ff7 · 33b3ff7
1 parent 334b872
commit 33b3ff7
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/core/IO/CatHandle.pm b/src/core/IO/CatHandle.pm
@@ -209,6 +209,7 @@ my class IO::CatHandle is IO::Handle {
             (my $ret := buf8.new: $!active-handle.read: $bytes),
             nqp::while(
               nqp::islt_i(nqp::elems($ret), $bytes)
+              && $!active-handle.eof
               && nqp::defined(self.next-handle),
               $ret.append: $!active-handle.read:
                 nqp::sub_i($bytes, nqp::elems($ret))),