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

2 files changed, 3 insertions, 3 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index b84588cb6e..8aa02d5f2a 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 ea264ccb6d..b4098d315f 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);