Index: smoke_languages.pl
===================================================================
--- smoke_languages.pl	(revision 42903)
+++ smoke_languages.pl	(working copy)
@@ -68,7 +68,7 @@
 my $FH;
 my $parrot = catfile($pwd, $bindir, 'parrot');
 
-$out = `$parrot -V`;
+$out = `"$parrot" -V`;
 $out =~ m/version (\S+) built/;
 my $version = $1;
 
@@ -92,7 +92,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-abc');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot abc.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "3\n", "check abc");
 unlink($filename);
 }
@@ -120,7 +120,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-befunge');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot befunge.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "If you can see a 4 here ->4 <- then everything is ok!\n", "check befunge");
 unlink($filename);
 }
@@ -165,7 +165,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-blizkost');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot perl5.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, World!\n" || $out eq "Hello, World!\r\n", "check blizkost");
 unlink($filename);
 }
@@ -177,7 +177,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-cardinal');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot cardinal.pbc" unless (-e $exe);
-$out = `$exe -e "print 'hello world';"`;
+$out = `"$exe" -e "print 'hello world';"`;
 ok($out eq "hello world", "check cardinal");
 }
 
@@ -193,7 +193,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-chitchat');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot chitchat.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, world!\n", "check chitchat");
 unlink($filename);
 }
@@ -202,7 +202,7 @@
 {
 skip(".NET", 1) unless (-d "$pwd/$langdir/dotnet");
 chdir("$pwd/$langdir/dotnet");
-$out = `$parrot dotnet/net2pbc.pbc`;
+$out = `"$parrot" dotnet/net2pbc.pbc`;
 ok($out =~ /^Usage/, "check dotnet");
 }
 
@@ -218,7 +218,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-js');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot js.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello World from JS\n", "check ecmascript");
 unlink($filename);
 }
@@ -235,7 +235,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-fun');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot fun.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello World!\n", "check fun");
 unlink($filename);
 }
@@ -252,7 +252,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-gil');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot gil.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, world!\n", "check gil");
 unlink($filename);
 }
@@ -269,7 +269,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-hq9plus');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot hq9plus.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, world!\n", "check HQ9Plus");
 unlink($filename);
 }
@@ -286,7 +286,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-lisp');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot lisp.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, World!\n", "check lisp");
 unlink($filename);
 }
@@ -307,7 +307,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-lolcode');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot lolcode.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "HAI WORLD!\n", "check lolcode");
 unlink($filename);
 }
@@ -319,7 +319,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-lua');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot lua.pbc" unless (-e $exe);
-$out = `$exe -e "print(nil)"`;
+$out = `"$exe" -e "print(nil)"`;
 ok($out eq "nil\n", "check lua");
 }
 
@@ -346,7 +346,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-markdown');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot markdown.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "<p>Hello, World!</p>\n", "check markdown");
 unlink($filename);
 }
@@ -363,7 +363,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-matrixy');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot matrixy.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, world!\n", "check matrixy");
 unlink($filename);
 }
@@ -380,7 +380,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-apl');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot apl.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello world!\n", "check Paraplegic");
 unlink($filename);
 }
@@ -397,7 +397,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-pheme');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot pheme.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, World!\n", "check pheme");
 unlink($filename);
 }
@@ -414,7 +414,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-pipp');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot pipp.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, World!\n", "check pipp");
 unlink($filename);
 }
@@ -436,7 +436,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-porcupine');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot porcupine.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, world!\n", "check porcupine");
 unlink($filename);
 }
@@ -453,7 +453,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-primitivearc');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot primitivearc.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, world!\n\n", "check primitivearc");
 unlink($filename);
 }
@@ -470,7 +470,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-punie');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot punie.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, World!", "check punie");
 unlink($filename);
 }
@@ -487,7 +487,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-pynie');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot pynie.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, World!\n", "check pynie");
 unlink($filename);
 }
@@ -499,7 +499,7 @@
 $exe = catfile($pwd, $bindir, 'perl6');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot perl6.pbc" unless (-e $exe);
-$out = `$exe -e "say 'hello world'"`;
+$out = `"$exe" -e "say 'hello world'"`;
 ok($out eq "hello world\n", "check rakudo");
 }
 
@@ -606,7 +606,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-shakespeare');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot shakespeare.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello World!\n", "check shakespeare");
 unlink($filename);
 }
@@ -623,7 +623,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-steme');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot steme.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, World!\n", "check steme");
 unlink($filename);
 }
@@ -640,7 +640,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-squaak');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot squaak.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, World!\n", "check squaak");
 unlink($filename);
 }
@@ -660,7 +660,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-unl');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot unl.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello world\n", "check unlambda");
 unlink($filename);
 }
@@ -685,7 +685,7 @@
 $exe = catfile($pwd, $bindir, 'parrot-wmlsi');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot wmlsi.pbc" unless (-e $exe);
-$out = `$exe ${filename}c main`;
+$out = `"$exe" ${filename}c main`;
 ok($out eq "Hello World!\n", "check wmlscript");
 unlink($filename);
 unlink($filename . 'c');