diff options
| author |   jocuri%softhome.net <> | 2004-12-05 22:13:15 +0000 |
|---|---|---|
| committer | jocuri%softhome.net <> | 2004-12-05 22:13:15 +0000 |
| commit | 09fb45c4c3c4d22dfcb7c8956607e560dfb055b8 (patch) | |
| tree | ce1a4c8cbb3fcf96d0a3d1a1359deb6a5ce6b511 /t | |
| parent | Bug 272711 - Backport recent tip changes to add a secuirty chapter to the bra... (diff) | |
| download | bugzilla-09fb45c4c3c4d22dfcb7c8956607e560dfb055b8.tar.gz bugzilla-09fb45c4c3c4d22dfcb7c8956607e560dfb055b8.tar.bz2 bugzilla-09fb45c4c3c4d22dfcb7c8956607e560dfb055b8.zip | |
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.
Diffstat (limited to 't')
| -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) |