develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33927 - trunk/t/perl

From:
particle
Date:
December 15, 2008 11:28
Subject:
[svn:parrot] r33927 - trunk/t/perl
Message ID:
20081215192825.892FCCBA12@x12.develooper.com
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(



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About