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:
17657a3
)
regexp.h: Fix error check to use correct offset
author
Karl Williamson
<public@khwilliamson.com>
Sat, 31 Jul 2010 19:49:27 +0000
(13:49 -0600)
committer
Rafael Garcia-Suarez
<rgs@consttype.org>
Wed, 11 Aug 2010 08:23:34 +0000
(10:23 +0200)
regexp.h
patch
|
blob
|
blame
|
history
diff --git
a/regexp.h
b/regexp.h
index
d984031
..
ee46135
100644
(file)
--- a/
regexp.h
+++ b/
regexp.h
@@
-339,7
+339,7
@@
and check for NULL.
#define RXf_SKIPWHITE (1<<(_RXf_PMf_SHIFT+24)) /* Pattern is for a split / / */
#define RXf_WHITE (1<<(_RXf_PMf_SHIFT+25)) /* Pattern is /\s+/ */
#define RXf_NULL (1<<(_RXf_PMf_SHIFT+26)) /* Pattern is // */
-#if _RXf_PMf_SHIFT+2
3
> 31
+#if _RXf_PMf_SHIFT+2
6
> 31
# error Too many RXf_PMf bits used. See regnodes.h for any spare in middle
#endif