From 42c528510f98f6fb2426f073a5ee2a91ef8fd6ad Mon Sep 17 00:00:00 2001
From: "jocuri%softhome.net" <jocuri%softhome.net>
Date: Sun, 5 Dec 2004 14:13:27 +0000
Subject: [PATCH] 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.

---
 webtools/bugzilla/t/001compile.t | 2 +-
 webtools/bugzilla/t/003safesys.t | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/webtools/bugzilla/t/001compile.t b/webtools/bugzilla/t/001compile.t
index 69df08b6eba..ee46a5a85dd 100644
--- a/webtools/bugzilla/t/001compile.t
+++ b/webtools/bugzilla/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/webtools/bugzilla/t/003safesys.t b/webtools/bugzilla/t/003safesys.t
index af7a457b78a..b4f41f61c4b 100644
--- a/webtools/bugzilla/t/003safesys.t
+++ b/webtools/bugzilla/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)