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:
@@ -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);
|
||||
|
||||
Reference in New Issue
Block a user