In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/69af116790ebcd9c7773d33ed3192490acc438a3?hp=8ed49485fa2d8dfdc87e0a7a269aa210d3e6da83>
- Log ----------------------------------------------------------------- commit 69af116790ebcd9c7773d33ed3192490acc438a3 Author: Steve Hay <[email protected]> Date: Thu Sep 23 08:28:32 2010 +0100 Fix code-before-declaration problem in universal.c ----------------------------------------------------------------------- Summary of changes: universal.c | 9 ++++++--- 1 files changed, 6 insertions(+), 3 deletions(-) diff --git a/universal.c b/universal.c index 102ff91..e3e91cf 100644 --- a/universal.c +++ b/universal.c @@ -1194,6 +1194,10 @@ XS(XS_re_regexp_pattern) STRLEN left = 0; char reflags[sizeof(INT_PAT_MODS) + 1]; /* The +1 is for the charset modifier */ + const char *fptr; + char ch; + U16 match_flags; + /* we are in list context so stringify the modifiers that apply. We ignore "negative @@ -1206,9 +1210,8 @@ XS(XS_re_regexp_pattern) else if (RX_EXTFLAGS(re) & RXf_PMf_UNICODE) { reflags[left++] = UNICODE_PAT_MOD; } - const char *fptr = INT_PAT_MODS; - char ch; - U16 match_flags = (U16)((RX_EXTFLAGS(re) & PMf_COMPILETIME) + fptr = INT_PAT_MODS; + match_flags = (U16)((RX_EXTFLAGS(re) & PMf_COMPILETIME) >> RXf_PMf_STD_PMMOD_SHIFT); while((ch = *fptr++)) { -- Perl5 Master Repository
