This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Change constants for clarity.
authorKarl Williamson <public@khwilliamson.com>
Tue, 7 Dec 2010 22:13:29 +0000 (15:13 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 11 Dec 2010 22:57:46 +0000 (15:57 -0700)
Oddly, it is clearer to use 0xFF as an exclusive-or target instead of an
unrelated #define that happens to have that value.

regcomp.c

index 2b76898..afa6712 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -8932,7 +8932,7 @@ parseit:
      * interaction with above 0x100 chars */
     if ((ANYOF_FLAGS(ret) & ANYOF_FLAGS_ALL) == ANYOF_INVERT) {
        for (value = 0; value < ANYOF_BITMAP_SIZE; ++value)
-           ANYOF_BITMAP(ret)[value] ^= ANYOF_FLAGS_ALL;
+           ANYOF_BITMAP(ret)[value] ^= 0xFF;
        ANYOF_FLAGS(ret) = ANYOF_UNICODE_ALL;
     }