fix for bug 91903: insecure dependency in require in importxml.pl under taint mode...

Patch by Jake Steenhagen <jake@acutex.net>
r= justdave@syndicomm.com

diff --git a/importxml.pl b/importxml.pl
index e33051e533ba36d0bab56ef3101ab92ba31e1e00..a11f116d9723b081288373b952a5a09101c99c81 100755 (executable)
--- 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);