From 7d5d7c0224937df3b597b907dd3154d022d2fbfc Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com"
 <justdave%syndicomm.com@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Wed, 25 Jul 2001 20:12:00 +0000
Subject: [PATCH] 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

git-svn-id: svn://10.0.0.236/trunk@99917 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/webtools/bugzilla/importxml.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/mozilla/webtools/bugzilla/importxml.pl b/mozilla/webtools/bugzilla/importxml.pl
index e33051e533b..a11f116d972 100755
--- a/mozilla/webtools/bugzilla/importxml.pl
+++ b/mozilla/webtools/bugzilla/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);