From: zach%zachlipton.com <>
Date: Fri, 5 Oct 2001 07:42:06 +0000 (+0000)
Subject: Fix for bug 98095:importxml.pl fails perl -wc test. Simple 1 line addition
X-Git-Tag: bugzilla-2.14.1~115
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=efb81d81465aba261a705d4eecd08fa26444ba53;p=thirdparty%2Fbugzilla.git

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 a11f116d97..4dfd421be0 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);