Change 14242 by jhi@alpha on 2002/01/13 17:46:45
Future-proofing from Jeffrey Friedl (for conflicting
In* and Is* names).
Affected files ...
.... //depot/perl/lib/utf8_heavy.pl#30 edit
Differences ...
==== //depot/perl/lib/utf8_heavy.pl#30 (text) ====
Index: perl/lib/utf8_heavy.pl
--- perl/lib/utf8_heavy.pl.~1~ Sun Jan 13 11:00:05 2002
+++ perl/lib/utf8_heavy.pl Sun Jan 13 11:00:05 2002
@@ -52,7 +52,7 @@
}
}
- 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 @@
}
}
- unless (defined $file) {
+ unless ($list or defined $file) {
if ($type =~ /^To([A-Z][A-Za-z]+)$/) {
$file = "unicore/To/$1";
}
End of Patch.
