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.

diff --git a/importxml.pl b/importxml.pl
index a11f116d9723b081288373b952a5a09101c99c81..4dfd421be041093701652cff1306ae34dcefd791 100755 (executable)
--- 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);