part 1 of PERL_OBJECT fixes for new var names

p4raw-id: //depot/perl@1607

1 files changed, 3 insertions, 3 deletions

diff --git a/perl.h b/perl.h
index bcaa992d55..f1f22f0900 100644
--- a/perl.h
+++ b/perl.h
@@ -111,9 +111,9 @@ class CPerlObj;
 #define PERL_OBJECT_THIS this
 #define _PERL_OBJECT_THIS ,this
 #define PERL_OBJECT_THIS_ this,
-#define CALLRUNOPS (this->*runops)
-#define CALLREGCOMP (this->*regcompp)
-#define CALLREGEXEC (this->*regexecp)
+#define CALLRUNOPS (this->*PL_runops)
+#define CALLREGCOMP (this->*PL_regcompp)
+#define CALLREGEXEC (this->*PL_regexecp)
 
 #else /* !PERL_OBJECT */