This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ee9a90b
)
regexec.c: Change '1' to bool TRUE for clarity.
author
Karl Williamson
<public@khwilliamson.com>
Mon, 27 Dec 2010 21:36:49 +0000
(14:36 -0700)
committer
Karl 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
patch
|
blob
|
blame
|
history
diff --git
a/regexec.c
b/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;
}