From f7f078e1137db07658ca4323ef4d275e89cf44ef Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sat, 2 Nov 2013 23:22:48 -0600 Subject: [PATCH] mktables, UCD.t: Fix nits in comments; add comment --- lib/Unicode/UCD.t | 4 ++-- lib/unicore/mktables | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 6fa769b..287ff2c 100644 --- 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 --- 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 -- 2.7.4