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

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