diff options
author | zach%zachlipton.com <> | 2001-10-05 07:42:06 +0000 |
---|---|---|
committer | zach%zachlipton.com <> | 2001-10-05 07:42:06 +0000 |
commit | efb81d81465aba261a705d4eecd08fa26444ba53 (patch) | |
tree | 7261eb0bad7e4046fe5fabc07e974d9da0899b1c /importxml.pl | |
parent | Bugzilla Bug 69533 enter_bug.cgi does not auto-detect HP-UX as OS (diff) | |
download | bugzilla-efb81d81465aba261a705d4eecd08fa26444ba53.tar.gz bugzilla-efb81d81465aba261a705d4eecd08fa26444ba53.tar.bz2 bugzilla-efb81d81465aba261a705d4eecd08fa26444ba53.zip |
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.
Diffstat (limited to 'importxml.pl')
-rwxr-xr-x | importxml.pl | 3 |
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); |