diff options
author | Karl Williamson <khw@cpan.org> | 2016-02-13 13:49:00 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2016-02-18 20:26:49 -0700 |
commit | fe0a36465f2c9353aeec20e4a5d22f6681bb28bb (patch) | |
tree | 1bc68f1028d8538cf6061513e2a6176d09d99865 /proto.h | |
parent | a60b792277ab2836704066899135e8d4c83b0f0c (diff) | |
download | perl-fe0a36465f2c9353aeec20e4a5d22f6681bb28bb.tar.gz |
Don't allow /\N{}/ under 're strict'
This is the one remaining empty {} that was accepted under the
experimental 'use re "strict"'.
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4747,7 +4747,7 @@ PERL_STATIC_INLINE STRLEN* S_get_invlist_iter_addr(SV* invlist) #define PERL_ARGS_ASSERT_GET_INVLIST_ITER_ADDR \ assert(invlist) -STATIC bool S_grok_bslash_N(pTHX_ RExC_state_t *pRExC_state, regnode** nodep, UV *code_point_p, int* cp_count, I32 *flagp, const U32 depth); +STATIC bool S_grok_bslash_N(pTHX_ RExC_state_t *pRExC_state, regnode** nodep, UV *code_point_p, int* cp_count, I32 *flagp, const bool strict, const U32 depth); #define PERL_ARGS_ASSERT_GROK_BSLASH_N \ assert(pRExC_state); assert(flagp) PERL_STATIC_INLINE regnode* S_handle_named_backref(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, char * parse_start, char ch); |