diff options
| author | jocuri%softhome.net <> | 2004-12-05 23:13:27 +0100 |
|---|---|---|
| committer | jocuri%softhome.net <> | 2004-12-05 23:13:27 +0100 |
| commit | 00596bee6943f617da1f8e020ad49581db55fc4b (patch) | |
| tree | e2d14ba5655971f1307d09e73bb19ea003264d51 | |
| parent | 41f1a258127fea019a3349cbe8d4fd1b6d8b616e (diff) | |
| download | bugzilla-00596bee6943f617da1f8e020ad49581db55fc4b.tar.gz bugzilla-00596bee6943f617da1f8e020ad49581db55fc4b.tar.xz | |
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.
| -rw-r--r-- | t/001compile.t | 2 | ||||
| -rw-r--r-- | t/003safesys.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/t/001compile.t b/t/001compile.t index 69df08b6e..ee46a5a85 100644 --- 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 af7a457b7..b4f41f61c 100644 --- 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) |