another attempt to fix perl6 invocation in tests

Raku · Oct 29, 2013 · 61a7f63 · 61a7f63
1 parent 7f925f9
commit 61a7f63
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/packages/Test/Util.pm b/packages/Test/Util.pm
@@ -93,8 +93,8 @@ sub get_out( Str $code, Str $input?, :@args, :@compiler-args) is export {
 
         my $perl6 = $*EXECUTABLE_NAME;
         my $cmd = $perl6 ~~ m:i/niecza/ ?? "mono $perl6 " !! "$perl6 ";
+        $perl6 ~~ s{^perl6}{./perl6};
         $cmd = $perl6 ~ ' ';
-        $cmd = $perl6 ~~ m:i/^perl6/ ?? "./perl6 " !! "$perl6 ";
         $cmd ~= @compiler-args.join(' ') ~ ' ' if @compiler-args;
         $cmd ~= $fnbase ~ '.code'  if $code.defined;
         $cmd ~= " @actual_args.join(' ') < $fnbase.in > $fnbase.out 2> $fnbase.err";