diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-13 17:46:45 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-13 17:46:45 +0000 |
| commit | 49dd7e6a792c82ede4e686a3cfec3c972ef97495 (patch) | |
| tree | 504b11ea34da18413cada46eaa9490fc9fe5676f /lib/utf8_heavy.pl | |
| parent | f80041b79a77553e0e93feb536657458de23db6d (diff) | |
| download | perl-49dd7e6a792c82ede4e686a3cfec3c972ef97495.tar.gz | |
Future-proofing from Jeffrey Friedl (for conflicting
In* and Is* names).
p4raw-id: //depot/perl@14242
Diffstat (limited to 'lib/utf8_heavy.pl')
| -rw-r--r-- | lib/utf8_heavy.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 4fbb112c23..21cd7d887c 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"; } |