[cage] Improve _pir_stdin_output_slurp ./parrot vs parrot.exe

parrot · Jan 4, 2013 · ef57ae2 · ef57ae2
1 parent 7ea6587
commit ef57ae2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Parrot/Test.pm b/lib/Parrot/Test.pm
@@ -602,7 +602,7 @@ sub _pir_stdin_output_slurp {
     my $input_file = $stuff->($input_string);
     my $code_file = $stuff->($code);
 
-    my $parrot = ".$PConfig{slash}parrot$PConfig{exe}";
+    my $parrot = File::Spec->join( File::Spec->curdir(), 'parrot' . $PConfig{exe} );
     # Slurp and compare the output.
     my $result = do {
         local $/;