Make open("-") non-special in 6.d

rakudo · Sep 29, 2017 · 76359ab · 76359ab
1 parent 03b1feb
commit 76359ab
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/IO/Handle.pm b/src/core/IO/Handle.pm
@@ -116,7 +116,8 @@ my class IO::Handle {
         );
 
         nqp::if(
-          nqp::iseq_s($!path.Str, '-'),
+          nqp::iseq_s($!path.Str, '-')
+          && nqp::iseq_s('6.c', nqp::getcomp('perl6').language_version),
           nqp::if(
             nqp::iseq_s($mode, 'ro'),
             nqp::if(