On windows, the path to the perl binary contains backslashes. Changes…

… double quotes to single quotes so the backslashes don't create weird string problems. This fixes spawnw.t on windows
parrot · Jul 11, 2011 · fa9e3a3 · fa9e3a3
1 parent 27cc427
commit fa9e3a3
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/t/op/spawnw.t b/t/op/spawnw.t
@@ -95,7 +95,7 @@ pasm_output_is( <<"CODE", <<'OUTPUT', "exit code: 0" );
 .pcc_sub :main main:
         new     P0, 'ResizablePMCArray'
         set     P0, 3
-        set     P0[0], "$perl"
+        set     P0[0], '$perl'
         set     P0[1], "-e"
         set     P0[2], "exit(0)"
         set     I1, 99
@@ -113,7 +113,7 @@ pasm_output_is( <<"CODE", <<'OUTPUT', "exit code: 123" );
 .pcc_sub :main main:
         new     P0, 'ResizablePMCArray'
         set     P0, 3
-        set     P0[0], "$perl"
+        set     P0[0], '$perl'
         set     P0[1], "-e"
         set     P0[2], "exit(123)"
         set     I1, 99
@@ -131,7 +131,7 @@ pasm_output_is( <<"CODE", <<'OUTPUT', "exit code: 3" );
 .pcc_sub :main main:
         new     P0, 'ResizablePMCArray'
         set     P0, 3
-        set     P0[0], "$perl"
+        set     P0[0], '$perl'
         set     P0[1], "-e"
         set     P0[2], "exit(3)"
         set     I1, 99
@@ -159,7 +159,7 @@ loop:
 end:
         \$S0 = concat \$S0, "}) / 100"
         new args, 'ResizablePMCArray'
-        push args, "$perl"
+        push args, '$perl'
         push args, "-e"
         push args, \$S0
         \$I0 = spawnw args