diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-11-02 23:22:48 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-12-31 08:27:16 -0700 |
| commit | f7f078e1137db07658ca4323ef4d275e89cf44ef (patch) | |
| tree | 910915d5470a6ef43e7f2995914ac8d60fe613b1 /lib | |
| parent | 466d42fb4026a8845fa3332eba69a483af664efc (diff) | |
| download | perl-f7f078e1137db07658ca4323ef4d275e89cf44ef.tar.gz | |
mktables, UCD.t: Fix nits in comments; add comment
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Unicode/UCD.t | 4 | ||||
| -rw-r--r-- | lib/unicore/mktables | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 6fa769b4f9..287ff2cacd 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 dcdb99bd7c..2eb19548ec 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 |