diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-30 02:51:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-30 02:51:39 +0000 |
| commit | 22c35a8c2392967a5ba6b5370695be464bd7012c (patch) | |
| tree | 8ecdc4d8fa4a4e49d2b6df0d82103a508cd03053 /win32/perlhost.h | |
| parent | 854e6445c2d6190b7a3d3208d8ff1250a817e551 (diff) | |
| download | perl-22c35a8c2392967a5ba6b5370695be464bd7012c.tar.gz | |
phase 1 of somewhat major rearrangement of PERL_OBJECT stuff
(objpp.h is gone, embed.pl now does some of that); objXSUB.h
should soon be automated also; the global variables that
escaped the PL_foo conversion are now reined in; renamed
MAGIC in regcomp.h to REG_MAGIC to avoid collision with the
type of same name; duplicated lists of pp_things in various
places is now gone; result has only been tested on win32
p4raw-id: //depot/perl@2133
Diffstat (limited to 'win32/perlhost.h')
| -rw-r--r-- | win32/perlhost.h | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index 842d9c3275..21908098a5 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -861,13 +861,13 @@ public: { try { - pPerl->perl_construct(); + perl_construct(); } catch(...) { win32_fprintf(stderr, "%s\n", "Error: Unable to construct data structures"); - pPerl->perl_free(); + perl_free(); pPerl = NULL; } } @@ -884,7 +884,7 @@ public: int retVal; try { - retVal = pPerl->perl_parse(xs_init, argc, argv, env); + retVal = perl_parse(xs_init, argc, argv, env); } catch(int x) { @@ -904,7 +904,7 @@ public: int retVal; try { - retVal = pPerl->perl_run(); + retVal = perl_run(); } catch(int x) { @@ -922,8 +922,8 @@ public: { try { - pPerl->perl_destruct(); - pPerl->perl_free(); + perl_destruct(); + perl_free(); } catch(...) { |