In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/31775478b5d0b13861042933fc993c5f57c69f5a?hp=794826f458d760d13e8727e0e0a3fd7fe79faabd>
- Log ----------------------------------------------------------------- commit 31775478b5d0b13861042933fc993c5f57c69f5a Author: Yves Orton <[email protected]> Date: Wed Oct 19 14:35:16 2016 +0200 pp_(hot|ctl).c: switch croak() to Perl_croak() for win32 ----------------------------------------------------------------------- Summary of changes: pp_ctl.c | 2 +- pp_hot.c | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/pp_ctl.c b/pp_ctl.c index b84588c..8aa02d5 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -165,7 +165,7 @@ PP(pp_regcomp) /* Handle empty pattern */ if (!RX_PRELEN(PM_GETRE(pm)) && PL_curpm) { if (PL_curpm == PL_reg_curpm) - croak("Use of the empty pattern inside of " + Perl_croak(aTHX_ "Use of the empty pattern inside of " "a regex code block is forbidden"); pm = PL_curpm; } diff --git a/pp_hot.c b/pp_hot.c index ea264cc..b4098d3 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -1765,7 +1765,7 @@ PP(pp_match) possible, except for qr// */ if (!ReANY(rx)->mother_re && !RX_PRELEN(rx) && PL_curpm) { if (PL_curpm == PL_reg_curpm) - croak("Use of the empty pattern inside of " + Perl_croak(aTHX_ "Use of the empty pattern inside of " "a regex code block is forbidden"); pm = PL_curpm; rx = PM_GETRE(pm); @@ -2965,7 +2965,7 @@ PP(pp_subst) /* handle the empty pattern */ if (!RX_PRELEN(rx) && PL_curpm && !ReANY(rx)->mother_re) { if (PL_curpm == PL_reg_curpm) - croak("Use of the empty pattern inside of " + Perl_croak(aTHX_ "Use of the empty pattern inside of " "a regex code block is forbidden"); pm = PL_curpm; rx = PM_GETRE(pm); -- Perl5 Master Repository
