summaryrefslogtreecommitdiff
path: root/regen/charset_translations.pl
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2014-07-26 23:07:33 -0600
committerKarl Williamson <khw@cpan.org>2015-01-21 22:47:30 -0700
commit7799b1c95519329671bb8076d40c278d03d14b0a (patch)
treef8bccf107ce55c00b40702c06e5252f314a7ae6d /regen/charset_translations.pl
parent5a7e5385bd8bbdd89b9895cd76e2f12737e8ecad (diff)
downloadperl-7799b1c95519329671bb8076d40c278d03d14b0a.tar.gz
regen/charset_translations.pl: Clarify comment
Diffstat (limited to 'regen/charset_translations.pl')
-rw-r--r--regen/charset_translations.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/regen/charset_translations.pl b/regen/charset_translations.pl
index 4ee27a033e..9696560e8f 100644
--- a/regen/charset_translations.pl
+++ b/regen/charset_translations.pl
@@ -244,9 +244,9 @@ sub _UTF_START_MARK($) {
sub cp_2_utfbytes($$) {
# Returns a string consisting of the UTF-EBCDIC for the code page given by
- # the first parameter and the code point within it given by the 2nd, using
- # the UTF-MOD algorithm published in TR16. (If the "code page" is ASCII,
- # straight UTF-8 is returned.)
+ # the 2nd parameter, of the Unicode code point given by the first
+ # parameter, using the UTF-MOD algorithm published in TR16. (If the "code
+ # page" is ASCII, straight UTF-8 is returned.)
my ($ucp, $charset) = @_;