diff options
author | justdave%syndicomm.com <> | 2001-07-26 05:12:00 +0200 |
---|---|---|
committer | justdave%syndicomm.com <> | 2001-07-26 05:12:00 +0200 |
commit | 0ddaf7eee482fb742d34a1d6730e4100fad7b06e (patch) | |
tree | 3feb3f957bdd9721d68dd6e045c393a289cf8dc5 | |
parent | 60dd1f7e93db8ea46567c003124bd82f9993dcba (diff) | |
download | bugzilla-0ddaf7eee482fb742d34a1d6730e4100fad7b06e.tar.gz bugzilla-0ddaf7eee482fb742d34a1d6730e4100fad7b06e.tar.xz |
fix for bug 91903: insecure dependency in require in importxml.pl under taint mode only in Perl 5.005.
Patch by Jake Steenhagen <jake@acutex.net>
r= justdave@syndicomm.com
-rwxr-xr-x | importxml.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/importxml.pl b/importxml.pl index e33051e53..a11f116d9 100755 --- a/importxml.pl +++ b/importxml.pl @@ -51,7 +51,8 @@ use strict; # the rest of the file is compiled. BEGIN { $::path = $0; - $::path =~ s#(.*)/[^/]+#$1#; + $::path =~ m#(.*)/[^/]+#; + $::path = $1; } chdir $::path; use lib ($::path); |