mktables, UCD.t: Fix nits in comments; add comment

diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t
index 6fa769b..287ff2c 100644 (file)
--- a/lib/Unicode/UCD.t
+++ b/lib/Unicode/UCD.t
@@ -1019,7 +1019,7 @@ foreach my $set_of_tables (\%utf8::stricter_to_file_of, \%utf8::loose_to_file_of
         }
         else {  # Single-form.
 
-            # Like above, use looose if required, and insert underscores
+            # Like above, use loose if required, and insert underscores
             # between digits if strict.
             if ($set_of_tables == \%utf8::loose_to_file_of) {
                 $mod_table = "$extra_chars$table";
@@ -1674,7 +1674,7 @@ foreach my $prop (sort keys %props) {
                     diag("Can't handle format '$format'");
                     next PROPERTY;
                 }
-            }
+            } # Otherwise, the map is to a simple scalar
             elsif ($full_name =~    # These maps are in hex
                     /(Simple_)?(Case_Folding|(Lower|Title|Upper)case_Mapping)/)
             {

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index dcdb99b..2eb1954 100644 (file)
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -11664,7 +11664,7 @@ END
                                              . $object->full_name
                                              . "; $fields[$i]");
 
-                # ... and, the The regular table, in which it is additional,
+                # ... and the regular table, in which it is additional,
                 # beyond the simple mapping.
                 $file->insert_adjusted_lines("$fields[0]; "
                                              . $object->name