From: justdave%syndicomm.com <>
Date: Thu, 26 Jul 2001 03:12:00 +0000 (+0000)
Subject: fix for bug 91903: insecure dependency in require in importxml.pl under taint mode... 
X-Git-Tag: bugzilla-2.14~45
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0ddaf7eee482fb742d34a1d6730e4100fad7b06e;p=thirdparty%2Fbugzilla.git

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
---

diff --git a/importxml.pl b/importxml.pl
index e33051e533..a11f116d97 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);