This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8_heavy: add comments
authorKarl Williamson <public@khwilliamson.com>
Sun, 6 Nov 2011 03:51:41 +0000 (21:51 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 8 Nov 2011 15:09:35 +0000 (08:09 -0700)
lib/utf8_heavy.pl

index f1029ea..365530d 100644 (file)
@@ -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) {