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 (file)
--- 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";
                }