From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 29 May 2001 00:51:34 +0000 (+0000)
Subject: At least a partial fix for 20010528.004.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8fe05de6219a82cdabb2b00b140842462585472b;p=p5sagit%2Fp5-mst-13.2.git

At least a partial fix for 20010528.004.

p4raw-id: //depot/perl@10277
---

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index ab2e15d..7a70e29 100644
--- a/lib/utf8_heavy.pl
+++ b/lib/utf8_heavy.pl
@@ -34,7 +34,7 @@ sub SWASHNEW {
     } else {
 	$file =~ s#^(Is|To)([A-Z].*)#$1/$2#;
     }
-    $list ||= eval { $caller->$type(); }
+    $list ||= ($caller ne 'main' && eval { $caller->$type(); })
 	|| do "$file.pl"
 	|| do "$encoding/$file.pl"
 	|| do "$encoding/Is/${type}.pl"