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 | acfe0abcedaf592fb4b9cb69ce3468308ae99d91 (patch) | |
| tree | a2ca08c77d2b63d1777d0b228ff53362895c1624 /NetWare/interface.c | |
| parent | 25f58aea15b072f74afcee1b9074d33e8e7348b5 (diff) | |
| download | perl-acfe0abcedaf592fb4b9cb69ce3468308ae99d91.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 'NetWare/interface.c')
| -rw-r--r-- | NetWare/interface.c | 20 |
1 files changed, 2 insertions, 18 deletions
diff --git a/NetWare/interface.c b/NetWare/interface.c index c526fbd6be..43cf81a464 100644 --- a/NetWare/interface.c +++ b/NetWare/interface.c @@ -24,7 +24,7 @@ static void xs_init(pTHX); EXTERN_C int RunPerl(int argc, char **argv, char **env); EXTERN_C void Perl_nw5_init(int *argcp, char ***argvp); -EXTERN_C void boot_DynaLoader (pTHXo_ CV* cv); +EXTERN_C void boot_DynaLoader (pTHX_ CV* cv); ClsPerlHost::ClsPerlHost() @@ -141,23 +141,7 @@ int RunPerl(int argc, char **argv, char **env) if(exitstatus == 0) { #if defined(TOP_CLONE) && defined(USE_ITHREADS) // XXXXXX testing - # ifdef PERL_OBJECT - CPerlHost *h = new CPerlHost(); - new_perl = perl_clone_using(my_perl, 1, - h->m_pHostperlMem, - h->m_pHostperlMemShared, - h->m_pHostperlMemParse, - h->m_pHostperlEnv, - h->m_pHostperlStdIO, - h->m_pHostperlLIO, - h->m_pHostperlDir, - h->m_pHostperlSock, - h->m_pHostperlProc - ); - CPerlObj *pPerl = (CPerlObj*)new_perl; - # else - new_perl = perl_clone(my_perl, 1); - # endif + new_perl = perl_clone(my_perl, 1); exitstatus = perl_run(new_perl); // Run Perl. PERL_SET_THX(my_perl); |