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 69df08b6ebaa2e46548840b2c28c7dd791927936..ee46a5a85ddafe18be9d1700b8aa897134824310 100644 (file)
--- a/t/001compile.t
+++ b/t/001compile.t
@@ -53,7 +53,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 af7a457b78ae935a429887d6ca480afe1ccbd013..b4f41f61c4b43357af2bf86cd5a44a596335a33b 100644 (file)
--- a/t/003safesys.t
+++ b/t/003safesys.t
@@ -47,7 +47,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)