From 0ddaf7eee482fb742d34a1d6730e4100fad7b06e Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Thu, 26 Jul 2001 03:12:00 +0000
Subject: 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

---
 importxml.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'importxml.pl')

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);
-- 
cgit v1.2.3-24-g4f1b