Author: particle
Date: Mon Dec 15 11:28:24 2008
New Revision: 33927
Modified:
trunk/t/perl/Parrot_Test.t
Log:
[t] use path-independent shell quotes from parrot's config
Modified: trunk/t/perl/Parrot_Test.t
==============================================================================
--- trunk/t/perl/Parrot_Test.t (original)
+++ trunk/t/perl/Parrot_Test.t Mon Dec 15 11:28:24 2008
@@ -24,6 +24,7 @@
use lib qw( lib );
use Parrot::Config;
use IO::CaptureOutput qw| capture |;
+use Parrot::Config '%PConfig';
BEGIN {
eval "use Test::Builder::Tester;";
@@ -597,8 +598,9 @@
}
{
+ my $q = $PConfig{PQ};
my $text = q{Hello, world};
- my $cmd = "$^X -e 'print qq{$text\n};'";
+ my $cmd = "$^X -e ${q}print qq{$text\n};${q}";
my $exit_message;
my ($stdout, $stderr);
capture(
