Pass correct types to :bin

The only reason this didn't crash in the past is due to RT#132307
rakudo · Oct 15, 2017 · ee0bcbd · ee0bcbd
1 parent ebb0521
commit ee0bcbd
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/core/Argfiles.pm b/src/core/Argfiles.pm
@@ -12,8 +12,8 @@ Rakudo::Internals.REGISTER-DYNAMIC: '$*ARGFILES', {
       ?? IO::ArgFiles.new(@*ARGS)
       !! IO::ArgFiles.new:
           (my $in := $*IN),
-          :nl-in($in.nl-in),       :chomp($in.chomp),
-          :encoding($in.encoding), :bin(nqp::isfalse($in.encoding));
+          :nl-in($in.nl-in), :chomp($in.chomp), :encoding($in.encoding),
+          :bin(nqp::p6bool(nqp::isfalse($in.encoding)));
 }
 
 # vim: ft=perl6 expandtab sw=4
diff --git a/src/core/IO/CatHandle.pm b/src/core/IO/CatHandle.pm
@@ -66,14 +66,14 @@ my class IO::CatHandle is IO::Handle {
               nqp::if(
                 nqp::istype(
                   ($_ = .open: :r, :$!chomp, :$!nl-in, :enc($!encoding),
-                    :bin(nqp::isfalse($!encoding))),
+                    :bin(nqp::p6bool(nqp::isfalse($!encoding)))),
                   Failure),
                 .throw,
                 ($!active-handle = $_))),
             nqp::if(
               nqp::istype(
                 ($_ := .IO.open: :r, :$!chomp, :$!nl-in, :enc($!encoding),
-                  :bin(nqp::isfalse($!encoding))),
+                  :bin(nqp::p6bool(nqp::isfalse($!encoding)))),
                 Failure),
               .throw,
               ($!active-handle = $_))),