This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
690e7fb
)
utf8_heavy: add comments
author
Karl Williamson
<public@khwilliamson.com>
Sun, 6 Nov 2011 03:51:41 +0000
(21:51 -0600)
committer
Karl Williamson
<public@khwilliamson.com>
Tue, 8 Nov 2011 15:09:35 +0000
(08:09 -0700)
lib/utf8_heavy.pl
patch
|
blob
|
blame
|
history
diff --git
a/lib/utf8_heavy.pl
b/lib/utf8_heavy.pl
index
f1029ea
..
365530d
100644
(file)
--- 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) {