diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-10-22 08:35:09 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-10-22 08:35:09 +0000 |
| commit | 56a2bab7c22806897577c69e86796669bc5a9a3a (patch) | |
| tree | 01fcf71c730d694cf7d8f5d70e941559de86de9e /perl.c | |
| parent | 3aaf42a70f921d9bb089a4793680c24d83c92281 (diff) | |
| download | perl-56a2bab7c22806897577c69e86796669bc5a9a3a.tar.gz | |
All tests pass (legitimately) on ithreads
p4raw-id: //depot/perlio@12557
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -459,6 +459,11 @@ perl_destruct(pTHXx) 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;; } @@ -800,7 +805,7 @@ perl_destruct(pTHXx) 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 |