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

Patch for bug 271964: tests 1 and 3 from the testing suite shouldn't fail when $^X contains spaces; patch by me, r=jouni, a=justdave.

Patch for bug 271964: tests 1 and 3 from the testing suite shouldn't fail when…
00596bee · jocuri%softhome.net · 41f1a258 · 00596bee · 00596bee
Commit 00596bee authored Dec 05, 2004 by jocuri%softhome.net
Show whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

001compile.t t/001compile.t +1 -1

003safesys.t t/003safesys.t +1 -1

No files found.
--- 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

--- 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)