From: Frédéric Buclin <LpSolit@gmail.com>
Date: Wed, 30 Sep 2015 18:26:10 +0000 (+0200)
Subject: Bug 987742: Strawberry Perl requires C:\strawberry\c\bin\ to be in $ENV{PATH} to... 
X-Git-Tag: release-5.1.1~156
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8fff7304d78ab79ca135cb16159912a43c7cb705;p=thirdparty%2Fbugzilla.git

Bug 987742: Strawberry Perl requires C:\strawberry\c\bin\ to be in $ENV{PATH} to correctly load XS modules
r=gerv
---

diff --git a/Bugzilla.pm b/Bugzilla.pm
index b53eef0a73..c6d7ae39bc 100644
--- a/Bugzilla.pm
+++ b/Bugzilla.pm
@@ -82,19 +82,27 @@ sub init_page {
     }
 
     if (${^TAINT}) {
-        # Some environment variables are not taint safe
-        delete @::ENV{'PATH', 'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
-        # Some modules throw undefined errors (notably File::Spec::Win32) if
-        # PATH is undefined.
-        $ENV{'PATH'} = '';
-        # On Windows, these paths are tainted, preventing File::Spec::Win32->tmpdir
-        # from using them. But we need a place to temporary store attachments
-        # which are uploaded.
+        my $path = '';
         if (ON_WINDOWS) {
+            # On Windows, these paths are tainted, preventing
+            # File::Spec::Win32->tmpdir from using them. But we need
+            # a place to temporary store attachments which are uploaded.
             foreach my $temp (qw(TMPDIR TMP TEMP)) {
                 trick_taint($ENV{$temp}) if $ENV{$temp};
             }
+            # Some DLLs used by Strawberry Perl are also in c\bin,
+            # see https://rt.cpan.org/Public/Bug/Display.html?id=99104
+            if (!ON_ACTIVESTATE) {
+                my $c_path = $path = dirname($^X);
+                $c_path =~ s/\bperl\b(?=\\bin)/c/;
+                $path .= ";$c_path";
+            }
         }
+        # Some environment variables are not taint safe
+        delete @::ENV{'PATH', 'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
+        # Some modules throw undefined errors (notably File::Spec::Win32) if
+        # PATH is undefined.
+        $ENV{'PATH'} = $path;
     }
 
     # Because this function is run live from perl "use" commands of