X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.h;h=7009f1694406da7d314211bf15ae43395a069c9a;hb=ea7154893ee587d7e47bcebff9e70757b48a38bd;hp=94eb55abcb3a5537669c99a24b652546f5622f18;hpb=acfe0abcedaf592fb4b9cb69ce3468308ae99d91;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.h b/perl.h
index 94eb55a..7009f16 100644
--- a/perl.h
+++ b/perl.h
@@ -132,7 +132,8 @@ struct perl_thread;
 #  define pTHX_4	4
 #endif
 
-#ifndef pTHXo
+/* these are only defined for compatibility; should not be used internally */
+#if !defined(pTHXo) && !defined(PERL_CORE)
 #  define pTHXo		pTHX
 #  define pTHXo_	pTHX_
 #  define aTHXo		aTHX