pp_(hot|ctl).c: switch croak() to Perl_croak() for win32

diff --git a/pp_ctl.c b/pp_ctl.c
index b84588c..8aa02d5 100644 (file)
--- 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 (file)
--- 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);