This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/mk_invlists.pl: Fix typo
authorKarl Williamson <khw@cpan.org>
Sat, 16 Dec 2017 18:37:21 +0000 (11:37 -0700)
committerKarl Williamson <khw@cpan.org>
Sun, 17 Dec 2017 04:56:50 +0000 (21:56 -0700)
charclass_invlists.h
regen/mk_invlists.pl

index 91d6319..b140688 100644 (file)
@@ -97457,5 +97457,5 @@ static const U8 WB_table[24][24] = {
  * 10cb8c6f35fc78401bca052127e19f7906cece98f64e5340003314d4fe8f66d2 lib/unicore/mktables
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
- * 48418cbf454eb9ef35c73468ed5ef72ad8603490eabe74181ce4fae42ec72579 regen/mk_invlists.pl
+ * 3c78a5d6d227dd5c8bb385d9183096ac565b08bd81c245d558a94fc9afcda35e regen/mk_invlists.pl
  * ex: set ro: */
index 6b0e900..90e66ed 100644 (file)
@@ -1943,7 +1943,7 @@ for my $charset (get_supported_code_pages()) {
                     # will be converted back later (using a vertical tab as
                     # the separator).  Even if the mapping is to code points,
                     # we don't translate to native here because the code
-                    # output_map() calls to output these arrays assumes the
+                    # output_invmap() calls to output these arrays assumes the
                     # input is Unicode, not native.
                     if (ref $invmap[0]) {
                         $bucket = join "\cK", @{$invmap[0]};