diff options
author | Sawyer X <xsawyerx@cpan.org> | 2017-02-08 14:00:37 +0100 |
---|---|---|
committer | Sawyer X <xsawyerx@cpan.org> | 2017-02-12 12:52:01 +0200 |
commit | d4360efa03060f769618abf1b433a49d3dab9774 (patch) | |
tree | ea112c62774b98f306535305a0b510aae6c3c5a4 /regcomp.c | |
parent | 583bfb0c6976d1378e7acc1e4ff3b9c014d163da (diff) | |
download | perl-d4360efa03060f769618abf1b433a49d3dab9774.tar.gz |
Revert "Deprecating the use of C<< \cI<X> >> to specify a printable character."
This reverts commit bfdc8cd3d5a81ab176f7d530d2e692897463c97d.
Diffstat (limited to 'regcomp.c')
-rw-r--r-- | regcomp.c | 21 |
1 files changed, 6 insertions, 15 deletions
@@ -818,13 +818,6 @@ static const scan_data_t zero_scan_data = REPORT_LOCATION_ARGS(loc)); \ } STMT_END -#define vWARN4dep(loc, m, a1, a2, a3) STMT_START { \ - __ASSERT_(PASS2) Perl_warner(aTHX_ packWARN2(WARN_REGEXP,WARN_DEPRECATED), \ - m REPORT_LOCATION, \ - a1, a2, a3, \ - REPORT_LOCATION_ARGS(loc)); \ -} STMT_END - #define ckWARN4reg(loc, m, a1, a2, a3) STMT_START { \ __ASSERT_(PASS2) Perl_ck_warner(aTHX_ packWARN(WARN_REGEXP), \ m REPORT_LOCATION, \ @@ -16933,22 +16926,20 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth, literal[d++] = (char) value; literal[d++] = '\0'; - vWARN4dep(RExC_parse, - "\"%.*s\" is more clearly written simply as \"%s\". " - "This will be a fatal error in Perl 5.28", + vWARN4(RExC_parse, + "\"%.*s\" is more clearly written simply as \"%s\"", (int) (RExC_parse - rangebegin), rangebegin, literal - ); + ); } else if isMNEMONIC_CNTRL(value) { - vWARN4dep(RExC_parse, - "\"%.*s\" is more clearly written simply as \"%s\". " - "This will be a fatal error in Perl 5.28", + vWARN4(RExC_parse, + "\"%.*s\" is more clearly written simply as \"%s\"", (int) (RExC_parse - rangebegin), rangebegin, cntrl_to_mnemonic((U8) value) - ); + ); } } } |