read a byte and not a char in EOF check

Reading a char can fail when this char gets decoded to utf8.

Author: FROGGS

src/vm/parrot/QAST/Operations.nqp

@@ -1846,9 +1846,11 @@ QAST::Operations.add_core_op('eoffh', -> $qastcomp, $op {
     $qastcomp.as_post(
         QAST::Op.new( :op('if'),
             QAST::Op.new( :op('istrue'),
-                QAST::Op.new( :op('callmethod'), :name('read'),
-                    $op[0], QAST::IVal.new( :value(1) )
-                )
+                QAST::Op.new( :op('elems'),
+                    QAST::Op.new( :op('callmethod'), :name('read_bytes'),
+                        $op[0], QAST::IVal.new( :value(1) )
+                    )
+                ),
             ),
             QAST::Stmts.new(
                 QAST::Op.new( :op('callmethod'), :name('seek'),