From 6496a7165061d8552f3cc1bc3aa1454b24f45470 Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Fri, 1 Jun 2001 17:03:52 +0000
Subject: Fix for bug 83633: perl warnings in 5.6 r= Hixie

---
 importxml.pl | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'importxml.pl')

diff --git a/importxml.pl b/importxml.pl
index b4b27b1e0..730c5a39c 100755
--- a/importxml.pl
+++ b/importxml.pl
@@ -46,10 +46,15 @@ use strict;
 # figure out which path this script lives in. Set the current path to
 # this and add it to @INC so this will work when run as part of mail
 # alias by the mailer daemon
-my $path = $0;
-$path =~ s#(.*)/[^/]+#$1#;
-chdir $path;
-use lib ($path);
+# since "use lib" is run at compile time, we need to enclose the
+# $::path declaration in a BEGIN block so that it is executed before
+# the rest of the file is compiled.
+BEGIN {
+ $::path = $0;
+ $::path =~ s#(.*)/[^/]+#$1#;
+}
+chdir $::path;
+use lib ($::path);
 
 use XML::Parser;
 use Data::Dumper;
-- 
cgit v1.2.3-24-g4f1b