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
This commit is contained in:
justdave%syndicomm.com
2001-07-25 20:12:00 +00:00
parent 878bde6325
commit 7d5d7c0224

View File

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