In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/8ec4ed08a39f899ec6c7eed67a0a0ab42ae08fd5?hp=aeecb272a52502898390c1076c214d5f15615e0e>
- Log ----------------------------------------------------------------- commit 8ec4ed08a39f899ec6c7eed67a0a0ab42ae08fd5 Author: Nicholas Clark <[email protected]> Date: Sat Jan 12 11:45:26 2013 +0100 In S_regatom(), set flags to 0 at the start. Without this, flags will be read uninitialised for the execution path that ends up with "Internal urp". (Although it's not clear that that error message is ever reachable.) The bug was introduced in perl 5.000, which added (?#) comments and (?m) style embedding flags. It's not present in alpha 9. ----------------------------------------------------------------------- Summary of changes: regcomp.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/regcomp.c b/regcomp.c index a57f462..06b9f79 100644 --- a/regcomp.c +++ b/regcomp.c @@ -10056,7 +10056,7 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth) { dVAR; regnode *ret = NULL; - I32 flags; + I32 flags = 0; char *parse_start = RExC_parse; U8 op; int invert = 0; -- Perl5 Master Repository
