| Subject: | sample9.output breaks for win32 , win32 uses "", doesn't have cat /rm on |
Log-Log4perl-CommandLine-0.06/t/sample.t
--- sample.t-old 2009-07-29 10:05:34.000000000 -0700
+++ sample.t 2009-09-03 17:09:43.718750000 -0700
@@ -25,6 +25,9 @@
$case =~ s/\n\n$/\n/;
$command =~ s,perl,$^X -I../blib/lib,;
+ $command =~ s!'!"!g if $^O =~ /win32/i; # 2009-09-03- 17:03:56
+ $command =~ s,cat ,$^X -MExtUtils::Command -e cat ,;
+ $command =~ s,rm ,$^X -MExtUtils::Command -e rm_f ,;
my $output = `$command 2>&1`; # just bundle stdout,stderr
As an alternative to qx, IPC::System::Simple provides capturex (among
others) which doesn't invoke the shell
Thank you