This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexec.c: Change '1' to bool TRUE for clarity.
authorKarl Williamson <public@khwilliamson.com>
Mon, 27 Dec 2010 21:36:49 +0000 (14:36 -0700)
committerKarl Williamson <public@khwilliamson.com>
Mon, 17 Jan 2011 02:13:24 +0000 (19:13 -0700)
The function is supposed to take a bool.

regexec.c

index 1c49bb1..694ac1b 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -6483,7 +6483,7 @@ S_reginclass(pTHX_ const regexp * const prog, register const regnode * const n,
                    utf8_p = bytes_to_utf8(p, &len);
                }
 
-               if (swash_fetch(sw, utf8_p, 1)) /* See if in the swash */
+               if (swash_fetch(sw, utf8_p, TRUE))
                    match = TRUE;
                else if (flags & ANYOF_LOC_NONBITMAP_FOLD) {
 
@@ -6680,7 +6680,7 @@ S_reginclass(pTHX_ const regexp * const prog, register const regnode * const n,
                                    * is valid utf8 in the test above */
                                    match = TRUE;
                                    break;
-                               } else if (swash_fetch(sw, (U8*) try_c, 1)) {
+                               } else if (swash_fetch(sw, (U8*) try_c, TRUE)) {
                                    match = TRUE;
                                    break;
                                }