DEBUG_P(debprofdump());
+#if defined(PERLIO_LAYERS)
+ /* No more IO - including error messages ! */
+ PerlIO_cleanup(aTHX);
+#endif
+
/* The exit() function will do everything that needs doing. */
return STATUS_NATIVE_EXPORT;;
}
if (PL_sv_count != 0 && ckWARN_d(WARN_INTERNAL))
Perl_warner(aTHX_ WARN_INTERNAL,"Scalars leaked: %ld\n", (long)PL_sv_count);
-#if 1 && defined(PERLIO_LAYERS)
+#if defined(PERLIO_LAYERS)
/* No more IO - including error messages ! */
PerlIO_cleanup(aTHX);
#endif
# else
void *host = w32_internal_host;
# endif
-# ifndef NETWARE
- if (PerlProc_lasthost()) {
-# ifdef USE_PERLIO
- PerlIO_cleanup();
-# endif
- }
-# endif
PerlMem_free(aTHXx);
# ifdef NETWARE
nw5_delete_internal_host(host);
win32_delete_internal_host(host);
# endif
# else
-# ifdef USE_PERLIO
- PerlIO_cleanup();
-# endif
PerlMem_free(aTHXx);
# endif
#else