This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexp.h: Fix error check to use correct offset
authorKarl Williamson <public@khwilliamson.com>
Sat, 31 Jul 2010 19:49:27 +0000 (13:49 -0600)
committerRafael Garcia-Suarez <rgs@consttype.org>
Wed, 11 Aug 2010 08:23:34 +0000 (10:23 +0200)
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+23 > 31
+#if _RXf_PMf_SHIFT+26 > 31
 #   error Too many RXf_PMf bits used.  See regnodes.h for any spare in middle
 #endif