[svn:parrot] r49687 - trunk/t/pmc

[nwellnhof at svn.parrot.org]

Author: nwellnhof
Date: Tue Oct 26 22:36:16 2010
New Revision: 49687
URL: https://trac.parrot.org/parrot/changeset/49687

Log:
[t] Make t/pmc/io_stdin.t pass on Windows

Modified:
   trunk/t/pmc/io_stdin.t

Modified: trunk/t/pmc/io_stdin.t
==============================================================================
--- trunk/t/pmc/io_stdin.t	Tue Oct 26 19:49:01 2010	(r49686)
+++ trunk/t/pmc/io_stdin.t	Tue Oct 26 22:36:16 2010	(r49687)
@@ -35,8 +35,8 @@
 
         my (undef, $file) = create_tempfile(UNLINK => 1);
         open(my $out, '>', $file) or die "bug";
+        binmode $out;
         print $out $string;
-        $file =~ s/\//\\/g if $^O eq 'MSWin32';
         return $file;
     };
 
@@ -44,7 +44,7 @@
     my $input_file = $stuff->($input_string);
     my $code_file = $stuff->($code);
 
-    my $parrot = $^O eq 'MSWin32' ? '.\parrot.exe' : './parrot';
+    my $parrot = ".$PConfig{slash}parrot$PConfig{exe}";
     # Slurp and compare the output.
     my $result = do {
         local $/;