diff options
| -rw-r--r-- | lib/utf8_heavy.pl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index f1029ea96e..365530d8d3 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -444,7 +444,7 @@ sub _loose_name ($) { pop @recursed if @recursed; return $type; - } + } # end of GETFILE block if (defined $file) { print STDERR __LINE__, ": found it (file='$file')\n" if DEBUG; @@ -470,9 +470,13 @@ sub _loose_name ($) { } $ListSorted = 1; ## we know that these lists are sorted - } + } # End of $type is non-null + + # Here, either $type was null, or we found the requested property and + # read it into $list my $extras; + my $bits = $minbits; if ($list) { |