From 0cb9638729211ea71a75ae8756c03ba21553bd53 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 27 Jun 1999 14:28:49 +0000 Subject: somewhat untested PERL_OBJECT cleanups (C++isms mostly gone from the public API); PERL_OBJECT builds again on windows TODO: namespace-clean the typedefs in iperlsys.h and elsewhere; remove C++ remnants from public headers p4raw-id: //depot/perl@3553 --- pp_ctl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp_ctl.c') diff --git a/pp_ctl.c b/pp_ctl.c index e4a74118be..9b5c93247e 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -2189,7 +2189,7 @@ PP(pp_goto) PL_stack_sp--; /* There is no cv arg. */ /* Push a mark for the start of arglist */ PUSHMARK(mark); - (void)(*CvXSUB(cv))(aTHX_ cv); + (void)(*CvXSUB(cv))(aTHXo_ cv); /* Pop the current context like a decent sub should */ POPBLOCK(cx, PL_curpm); /* Do _not_ use PUTBACK, keep the XSUB's return stack! */ -- cgit v1.2.1