diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-11-05 21:51:41 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-11-08 08:09:35 -0700 |
| commit | c9db9632f551c711b9957f8e9e26d991fd564a91 (patch) | |
| tree | 7983a883dc9d90203feef2e346db3d6207a276b8 /lib/utf8_heavy.pl | |
| parent | 690e7fb9d6d7630607c8def90021fa2a625949d6 (diff) | |
| download | perl-c9db9632f551c711b9957f8e9e26d991fd564a91.tar.gz | |
utf8_heavy: add comments
Diffstat (limited to 'lib/utf8_heavy.pl')
| -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) { |