Patch for bug 271964: tests 1 and 3 from the testing suite shouldn't fail when $...

diff --git a/t/001compile.t b/t/001compile.t
index f662f0751edc93bd0085ba7586c71d4c2808bab4..7e0994439b74b6e04acc7b557d61a108ac162f1a 100644 (file)
--- a/t/001compile.t
+++ b/t/001compile.t
@@ -59,7 +59,7 @@ my $fh;
 }
 
 my @testitems = @Support::Files::testitems;
-my $perlapp = $^X;
+my $perlapp = "\"$^X\"";
 
 # Test the scripts by compiling them
 

diff --git a/t/003safesys.t b/t/003safesys.t
index 14de7c03056ab32c11bb80f80c2c260c93fa61a6..896dcdd44641e8dffb097cc24ee7942bd83830c5 100644 (file)
--- a/t/003safesys.t
+++ b/t/003safesys.t
@@ -59,7 +59,7 @@ my $fh;
 }
 
 my @testitems = @Support::Files::testitems; 
-my $perlapp = $^X;
+my $perlapp = "\"$^X\"";
 
 foreach my $file (@testitems) {
     $file =~ s/\s.*$//; # nuke everything after the first space (#comment)