From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 11 May 2003 17:46:09 +0000 (+0000)
Subject: Try to handle a $^X with spaces in it.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=44cb023c103cc81b473c5000d0fc536254700a93;p=p5sagit%2Fp5-mst-13.2.git

Try to handle a $^X with spaces in it.

p4raw-id: //depot/perl@19490
---

diff --git a/t/test.pl b/t/test.pl
index 8eefe87..1a16fba 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -366,7 +366,7 @@ sub _quote_args {
 
 sub _create_runperl { # Create the string to qx in runperl().
     my %args = @_;
-    my $runperl = $^X;
+    my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
     unless ($args{nolib}) {
 	if ($is_macos) {
 	    $runperl .= ' -I::lib';