This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: revise comment
authorKarl Williamson <public@khwilliamson.com>
Fri, 20 May 2011 03:10:15 +0000 (21:10 -0600)
committerKarl Williamson <public@khwilliamson.com>
Fri, 20 May 2011 14:49:19 +0000 (08:49 -0600)
utf8.c

diff --git a/utf8.c b/utf8.c
index 2c15946..5f0e08c 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -2855,8 +2855,9 @@ Perl__swash_inversion_hash(pTHX_ SV* const swash)
             * express the capitalization, for example, of all consecutive
             * letters with a single line: 0061\t007A\t0041 This maps 0061 to
             * 0041, 0062 to 0042, etc.  I (khw) have never understood 'none',
-            * and it's not documented, and perhaps not even currently used,
-            * but I copied the semantics from swash_get(), just in case */
+            * and it's not documented; it appears to be used only in
+            * implementing tr//; I copied the semantics from swash_get(), just
+            * in case */
            if (!none || val < none) {
                ++val;
            }