defined %utf8::In || do "unicore/In.pl";
- $type =~ s/^In(?:[-_]|\s+)?//i;
+ $type =~ s/^In(?:[-_]|\s+)?(?!herited$)//i;
$type =~ s/\s+$//;
my $inprefix = substr(lc($type), 0, 3);
}
}
- # This is separate from 'To' in preparation of Is.pl (a la In.pl).
- if ((not defined $file) && $type =~ /^Is([A-Z][A-Za-z]*)$/) {
- $file = "unicore/Is/$1";
- }
-
- if ((not defined $file) && $type =~ /^To([A-Z][A-Za-z]*)$/) {
- $file = "unicore/To/$1";
+ unless (defined $file) {
+ # This is separate from 'To' in preparation of Is.pl (a la In.pl).
+ if ($type =~ /^Is([A-Z][A-Za-z]*|L&)$/ || $type =~ /^(L&)$/ ) {
+ my $cat = $1 eq 'L&' ? 'L' : $1;
+ $file = "unicore/Is/$cat";
+ } elsif ((not defined $file) && $type =~ /^To([A-Z][A-Za-z]*)$/) {
+ $file = "unicore/To/$1";
+ }
}
}
{
$list ||= do "$file.pl"
+ || do "unicore/Is/$type.pl"
|| croak("Can't find Unicode character property \"$type\"");
}