diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2001-08-31 20:58:38 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2001-08-31 20:58:38 +0000 |
| commit | e4bba5a0d263c2bf843fac4791fb8094b176cd2d (patch) | |
| tree | a2ca08c77d2b63d1777d0b228ff53362895c1624 /pp_hot.c | |
| parent | 68557093b0ba121e3abb7bee8b59d0af84a7afd5 (diff) | |
| download | perl-e4bba5a0d263c2bf843fac4791fb8094b176cd2d.tar.gz | |
remove deprecated PERL_OBJECT cruft, it has long since stopped
working in 5.7.x
p4raw-id: //depot/perl@11803
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -22,7 +22,7 @@ /* Hot code. */ #ifdef USE_5005THREADS -static void unset_cvowner(pTHXo_ void *cvarg); +static void unset_cvowner(pTHX_ void *cvarg); #endif /* USE_5005THREADS */ PP(pp_const) @@ -2734,7 +2734,7 @@ try_autoload: PL_curcopdb = NULL; } /* Do we need to open block here? XXXX */ - (void)(*CvXSUB(cv))(aTHXo_ cv); + (void)(*CvXSUB(cv))(aTHX_ cv); /* Enforce some sanity in scalar context. */ if (gimme == G_SCALAR && ++markix != PL_stack_sp - PL_stack_base ) { @@ -3131,7 +3131,7 @@ S_method_common(pTHX_ SV* meth, U32* hashp) #ifdef USE_5005THREADS static void -unset_cvowner(pTHXo_ void *cvarg) +unset_cvowner(pTHX_ void *cvarg) { register CV* cv = (CV *) cvarg; |