diff options
| author | zach%zachlipton.com <> | 2001-10-05 09:42:06 +0200 |
|---|---|---|
| committer | zach%zachlipton.com <> | 2001-10-05 09:42:06 +0200 |
| commit | efb81d81465aba261a705d4eecd08fa26444ba53 (patch) | |
| tree | 7261eb0bad7e4046fe5fabc07e974d9da0899b1c | |
| parent | 061d059d7bf9bd3b787e1fd22b222212ad38e5ae (diff) | |
| download | bugzilla-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-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); |