summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorzach%zachlipton.com <>2001-10-05 09:42:06 +0200
committerzach%zachlipton.com <>2001-10-05 09:42:06 +0200
commitefb81d81465aba261a705d4eecd08fa26444ba53 (patch)
tree7261eb0bad7e4046fe5fabc07e974d9da0899b1c
parent061d059d7bf9bd3b787e1fd22b222212ad38e5ae (diff)
downloadbugzilla-efb81d81465aba261a705d4eecd08fa26444ba53.tar.gz
bugzilla-efb81d81465aba261a705d4eecd08fa26444ba53.tar.xz
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.
-rwxr-xr-ximportxml.pl3
1 files changed, 3 insertions, 0 deletions
diff --git a/importxml.pl b/importxml.pl
index a11f116d9..4dfd421be 100755
--- a/importxml.pl
+++ b/importxml.pl
@@ -53,7 +53,10 @@ BEGIN {
$::path = $0;
$::path =~ m#(.*)/[^/]+#;
$::path = $1;
+ $::path ||= '.'; # $0 is empty at compile time. This line will
+ # have no effect on this script at runtime.
}
+
chdir $::path;
use lib ($::path);