This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Add comment
authorKarl Williamson <public@khwilliamson.com>
Wed, 29 Feb 2012 00:27:43 +0000 (17:27 -0700)
committerKarl Williamson <public@khwilliamson.com>
Wed, 29 Feb 2012 00:41:15 +0000 (17:41 -0700)
regcomp.c

index 7675e43..7a3433a 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -10853,6 +10853,8 @@ parseit:
                                             PL_PosixCntrl, PL_XPosixCntrl);
                    break;
                case ANYOF_DIGIT:
+                   /* Ignore the compiler warning for this macro, planned to
+                    * be eliminated later */
                    DO_POSIX_LATIN1_ONLY_KNOWN(ret, namedclass, properties,
                         PL_PosixDigit, PL_PosixDigit, "XPosixDigit", listsv);
                    break;