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.

Fix for bug 98095:importxml.pl fails perl -wc test. Simple 1 line addition
efb81d81 · zach%zachlipton.com · 061d059d · efb81d81
Commit efb81d81 authored Oct 05, 2001 by zach%zachlipton.com
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

importxml.pl importxml.pl +3 -0

No files found.
--- 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);