In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9f94e05533f94bb11e398d9fd7c7a064b86c451a?hp=622584734f799751a284558aaebad21acd3270bf>
- Log ----------------------------------------------------------------- commit 9f94e05533f94bb11e398d9fd7c7a064b86c451a Author: Nicolas R <[email protected]> Date: Sun Nov 13 02:16:23 2016 -0700 Cleanup PERL_VERSION checks in .c files This commit is removing code not exercised by blead or any later versions using PERL_VERSION. This is a noop, mainly cleaning code. ----------------------------------------------------------------------- Summary of changes: regexec.c | 7 ------- universal.c | 5 ----- 2 files changed, 12 deletions(-) diff --git a/regexec.c b/regexec.c index 6c5ce9f..c54c159 100644 --- a/regexec.c +++ b/regexec.c @@ -3694,9 +3694,6 @@ Perl_re_exec_indentf(pTHX_ const char *fmt, U32 depth, ...) STATIC regmatch_state * S_push_slab(pTHX) { -#if PERL_VERSION < 9 && !defined(PERL_CORE) - dMY_CXT; -#endif regmatch_slab *s = PL_regmatch_slab->next; if (!s) { Newx(s, 1, regmatch_slab); @@ -5328,10 +5325,6 @@ S_backup_one_WB(pTHX_ WB_enum * previous, const U8 * const strbeg, U8 ** curpos, STATIC SSize_t S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog) { - -#if PERL_VERSION < 9 && !defined(PERL_CORE) - dMY_CXT; -#endif dVAR; const bool utf8_target = reginfo->is_utf8_target; const U32 uniflags = UTF8_ALLOW_DEFAULT; diff --git a/universal.c b/universal.c index b88d3e2..a9d7514 100644 --- a/universal.c +++ b/universal.c @@ -965,12 +965,7 @@ XS(XS_re_regexp_pattern) } else { /* Scalar, so use the string that Perl would return */ /* return the pattern in (?msixn:..) format */ -#if PERL_VERSION >= 11 pattern = sv_2mortal(newSVsv(MUTABLE_SV(re))); -#else - pattern = newSVpvn_flags(RX_WRAPPED(re), RX_WRAPLEN(re), - (RX_UTF8(re) ? SVf_UTF8 : 0) | SVs_TEMP); -#endif PUSHs(pattern); XSRETURN(1); } -- Perl5 Master Repository
