From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 13 Jan 2002 17:46:45 +0000 (+0000)
Subject: Future-proofing from Jeffrey Friedl (for conflicting
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e096c555fbe3022bdc4d32129b67790ccc948000;p=p5sagit%2Fp5-mst-13.2.git

Future-proofing from Jeffrey Friedl (for conflicting
In* and Is* names).

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

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index 4fbb112..21cd7d8 100644
--- a/lib/utf8_heavy.pl
+++ b/lib/utf8_heavy.pl
@@ -52,7 +52,7 @@ sub SWASHNEW {
 		}
 	    }
 
-	    unless (defined $file) {
+	    unless ($list or defined $file) {
 		defined %utf8::In || do "unicore/In.pl";
 		$type = 'Lampersand' if $type =~ /^(?:Is)?L&$/;
 		$type = 'Assigned'   if $type =~ /^(?:Is)?Assigned$/i;
@@ -88,7 +88,7 @@ sub SWASHNEW {
 		}
 	    }
 
-	    unless (defined $file) {
+	    unless ($list or defined $file) {
 		if ($type =~ /^To([A-Z][A-Za-z]+)$/) {
 		    $file = "unicore/To/$1";
 		}