# Upon success, a new (or cached) blessed object is returned with
# keys TYPE, BITS, EXTRAS, LIST, and NONE with values having the
# same meanings as the input parameters.
+ # And if there is a special-treatment hash in the file, a reference
+ # to it is returned in the entry with key SPECIALS
my $file; ## file to load data from, and also part of the %Cache key.
my $ListSorted = 0;
if ($file) {
$Cache{$class, $file} = $SWASH;
+ if ($type
+ && exists $utf8::SwashInfo{$type}
+ && exists $utf8::SwashInfo{$type}{'specials_name'})
+ {
+ my $specials_name = $utf8::SwashInfo{$type}{'specials_name'};
+ no strict "refs";
+ print STDERR "\nspecials_name => $SWASH->{'SPECIALS'}\n" if DEBUG;
+ $SWASH->{'SPECIALS'} = \%$specials_name;
+ }
}
pop @recursed if @recursed && $type;