From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 13 Mar 2007 23:10:11 +0000 (+0000)
Subject: The dMY_CXT added in change 27938 isn't needed when in the PERL_CORE.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a35a87e73d19b61371e17b22fda65883c899839f;p=p5sagit%2Fp5-mst-13.2.git

The dMY_CXT added in change 27938 isn't needed when in the PERL_CORE.

p4raw-id: //depot/perl@30574
---

diff --git a/regexec.c b/regexec.c
index b9ac0a8..dc0cd9b 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2314,7 +2314,7 @@ S_regtry(pTHX_ regmatch_info *reginfo, char **startpos)
 STATIC regmatch_state *
 S_push_slab(pTHX)
 {
-#if PERL_VERSION < 9
+#if PERL_VERSION < 9 && !defined(PERL_CORE)
     dMY_CXT;
 #endif
     regmatch_slab *s = PL_regmatch_slab->next;
@@ -2614,7 +2614,7 @@ S_reg_check_named_buff_matched(pTHX_ const regexp *rex, const regnode *scan) {
 STATIC I32			/* 0 failure, 1 success */
 S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog)
 {
-#if PERL_VERSION < 9
+#if PERL_VERSION < 9 && !defined(PERL_CORE)
     dMY_CXT;
 #endif
     dVAR;