diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-16 19:46:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-16 19:46:38 +0000 |
| commit | 2986a63f7e513cf37f46db9f211b77071260031f (patch) | |
| tree | 9a6e62602396938ea5a612420f53ebf267e8d941 /perl.c | |
| parent | 87b11a197a59fac210fc9265bde0ef1ffe36de89 (diff) | |
| download | perl-2986a63f7e513cf37f46db9f211b77071260031f.tar.gz | |
NetWare port from Guruprasad S <SGURUPRASAD@novell.com>.
p4raw-id: //depot/perl@10643
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 20 |
1 files changed, 15 insertions, 5 deletions
@@ -817,14 +817,24 @@ perl_free(pTHXx) #if defined(PERL_OBJECT) PerlMem_free(this); #else -# if defined(WIN32) +# if defined(WIN32) || defined(NETWARE) # if defined(PERL_IMPLICIT_SYS) - void *host = w32_internal_host; - if (PerlProc_lasthost()) { + #ifdef NETWARE + void *host = nw_internal_host; + #else + void *host = w32_internal_host; + #endif + #ifndef NETWARE + if (PerlProc_lasthost()) { PerlIO_cleanup(); - } + } + #endif PerlMem_free(aTHXx); - win32_delete_internal_host(host); + #ifdef NETWARE + nw5_delete_internal_host(host); + #else + win32_delete_internal_host(host); + #endif #else PerlIO_cleanup(); PerlMem_free(aTHXx); |