This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The dMY_CXT added in change 27938 isn't needed when in the PERL_CORE.
authorNicholas Clark <nick@ccl4.org>
Tue, 13 Mar 2007 23:10:11 +0000 (23:10 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 13 Mar 2007 23:10:11 +0000 (23:10 +0000)
p4raw-id: //depot/perl@30574

regexec.c

index b9ac0a8..dc0cd9b 100644 (file)
--- 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;