Skip to content

bugzilla
bugzilla
Commit efb81d81 authored by zach%zachlipton.com's avatar zach%zachlipton.com
Browse files
Options

Fix for bug 98095:importxml.pl fails perl -wc test. Simple 1 line addition

that makes importxml.pl not fail the tests. We are on our way to 100%! Patch by Jake <jake@acutex.net>, r=zach@zachlipton.com, no 2nd review required.
parent 061d059d
Show whitespace changes
Inline Side-by-side
Showing with 3 additions and 0 deletions
importxml.pl
View file @ efb81d81
...@@ -53,7 +53,10 @@ BEGIN { ...@@ -53,7 +53,10 @@ BEGIN {
$::path = $0; $::path = $0;
$::path =~ m#(.*)/[^/]+#; $::path =~ m#(.*)/[^/]+#;
$::path = $1; $::path = $1;
$::path ||= '.'; # $0 is empty at compile time. This line will
# have no effect on this script at runtime.
} }
chdir $::path; chdir $::path;
use lib ($::path); use lib ($::path);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment