From efb81d81465aba261a705d4eecd08fa26444ba53 Mon Sep 17 00:00:00 2001
From: "zach%zachlipton.com" <>
Date: Fri, 5 Oct 2001 07:42:06 +0000
Subject: 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.
---
 importxml.pl | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'importxml.pl')

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);
 
-- 
cgit v1.2.3-24-g4f1b