From: Marc Schumann <wurblzap@gmail.com>
Date: Wed, 15 Feb 2012 17:54:21 +0000 (+0100)
Subject: Test 1 fails if PERLLIB contains paths with whitespace.
X-Git-Tag: bugzilla-3.6.9~7
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2aa5d7736215b9df4b865c4dd187f1b083ed52c9;p=thirdparty%2Fbugzilla.git

Test 1 fails if PERLLIB contains paths with whitespace.
r=gerv; a=LpSolit

https://bugzilla.mozilla.org/show_bug.cgi?id=714074
---

diff --git a/t/001compile.t b/t/001compile.t
index 9e63da0b48..97a339b2d8 100644
--- a/t/001compile.t
+++ b/t/001compile.t
@@ -62,7 +62,7 @@ sub compile_file {
 
     my $libs = '';
     if ($ENV{PERL5LIB}) {
-       $libs = join " ", map { "-I$_" } split /$Config{path_sep}/, $ENV{PERL5LIB};
+       $libs = join " ", map { "-I\"$_\"" } split /$Config{path_sep}/, $ENV{PERL5LIB};
     }
     my $perl = qq{"$^X"};
     my $output = `$perl $libs -wc$T $file 2>&1`;