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:
4b6068b
)
regcomp.c: Fix #define
author
Karl Williamson
<public@khwilliamson.com>
Sat, 20 Jul 2013 19:21:14 +0000
(13:21 -0600)
committer
Karl 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
patch
|
blob
|
blame
|
history
diff --git
a/regcomp.c
b/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 */
-#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