diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2010-09-23 08:28:32 +0100 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2010-09-23 08:28:32 +0100 |
| commit | 69af116790ebcd9c7773d33ed3192490acc438a3 (patch) | |
| tree | 1fcf70c85410c3fb4edecffe7134f8af1a44e46a /universal.c | |
| parent | 8ed49485fa2d8dfdc87e0a7a269aa210d3e6da83 (diff) | |
| download | perl-69af116790ebcd9c7773d33ed3192490acc438a3.tar.gz | |
Fix code-before-declaration problem in universal.c
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/universal.c b/universal.c index 102ff91919..e3e91cf539 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++)) { |