This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Fix #define
authorKarl Williamson <public@khwilliamson.com>
Sat, 20 Jul 2013 19:21:14 +0000 (13:21 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 23 Jul 2013 15:54:16 +0000 (09:54 -0600)
cl_init_zero should not be defined as S_cl_init, just 'cl_init'.  The S_
prefix is wrong should cl_init be changed to have a pTHX_.

regcomp.c

index c7b9536..783349e 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -848,7 +848,7 @@ S_cl_init(const RExC_state_t *pRExC_state, struct regnode_charclass_class *cl)
 }
 
 /* These two functions currently do the exact same thing */
 }
 
 /* These two functions currently do the exact same thing */
-#define cl_init_zero           S_cl_init
+#define cl_init_zero           cl_init
 
 /* 'AND' a given class with another one.  Can create false positives.  'cl'
  * should not be inverted.  'and_with->flags & ANYOF_CLASS' should be 0 if
 
 /* 'AND' a given class with another one.  Can create false positives.  'cl'
  * should not be inverted.  'and_with->flags & ANYOF_CLASS' should be 0 if