From 37e2c73e976d61298f1bc7316f33a49154f43f12 Mon Sep 17 00:00:00 2001
From: patrickas <patrickas@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Fri, 13 Aug 2010 18:38:21 +0000
Subject: [PATCH] Fix quoting command line args on windows moritz_++

git-svn-id: http://svn.pugscode.org/pugs@31982 c213334d-75ef-0310-aa23-eaa082d1ae64
---
 packages/Test/Util.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/Test/Util.pm b/packages/Test/Util.pm
index b5962b491a..61a67b7ae3 100644
--- 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";