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 | e096c555fbe3022bdc4d32129b67790ccc948000 (patch) | |
| tree | 504b11ea34da18413cada46eaa9490fc9fe5676f /lib/utf8_heavy.pl | |
| parent | bde7177df8a653ca87ecd91ccbb107a8a43388c7 (diff) | |
| download | perl-e096c555fbe3022bdc4d32129b67790ccc948000.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"; } |