From: Marc Schumann <wurblzap@gmail.com>
Date: Wed, 15 Feb 2012 17:51:47 +0000 (+0100)
Subject: Test 1 fails if PERLLIB contains paths with whitespace.
X-Git-Tag: bugzilla-4.3.1~95
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b670bf1d4e570b77283b6f148eb0a859aa2d8bf9;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 578be74509..a82b30a9eb 100644
--- a/t/001compile.t
+++ b/t/001compile.t
@@ -48,7 +48,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`;