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

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

fix for bug 91903: insecure dependency in require in importxml.pl under taint…
0ddaf7ee · justdave%syndicomm.com · 60dd1f7e · 0ddaf7ee
Commit 0ddaf7ee authored Jul 26, 2001 by justdave%syndicomm.com
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

importxml.pl importxml.pl +2 -1

No files found.
--- 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);