Fix quoting command line args on windows moritz_++

git-svn-id: http://svn.pugscode.org/pugs@31982 c213334d-75ef-0310-aa23-eaa082d1ae64
Raku · Aug 13, 2010 · 37e2c73 · 37e2c73
1 parent 3aa07c3
commit 37e2c73
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/packages/Test/Util.pm b/packages/Test/Util.pm
@@ -76,7 +76,8 @@ sub get_out( Str $code, Str $input?, :@args) is export {
     };
 
     my @actual_args;
-    my $sep = q[']; # TODO: adapt this to q["] on windows
+    my $sep = q['];
+    $sep = q["] if $*OS ~~ /:i win/;
     for @args {
         if /<['"]>/ {
             die "Command line arguments may not contain single or double quotes";