This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Remove duplicate statement
authorKarl Williamson <public@khwilliamson.com>
Tue, 30 Nov 2010 21:02:08 +0000 (14:02 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 2 Dec 2010 02:04:18 +0000 (18:04 -0800)
The flags this statement cleared are cleared as part of the macro called
just before it.

regcomp.c

index 4b69bf7..624a1b6 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -6268,7 +6268,6 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp,U32 depth)
                                       that follow */
                 has_use_defaults = TRUE;
                 STD_PMMOD_FLAGS_CLEAR(&RExC_flags);
-                RExC_flags &= ~(RXf_PMf_LOCALE|RXf_PMf_UNICODE);
                 goto parse_flags;
            default:
                --RExC_parse;