diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-11-21 20:36:22 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-11-21 20:36:22 +0000 |
| commit | 83b075c35b61a28ca7e2629bb5d6e26f9e0354fe (patch) | |
| tree | 05e231eb3d046f117c6207869d2e05bcf920c63d /win32 | |
| parent | efeab7a8047d7136a0235c1cc7329f57d6a8bfdd (diff) | |
| download | perl-83b075c35b61a28ca7e2629bb5d6e26f9e0354fe.tar.gz | |
Win32 builds and runs (mostly) with USE_PERLIO.
PERLIO=perlio passes all tests.
PERLIO=stdio (sadly the default) hangs in t.pragma/warnings.t #319
p4raw-id: //depot/perlio@7796
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/perllib.c | 1 | ||||
| -rw-r--r-- | win32/win32.c | 4 |
2 files changed, 1 insertions, 4 deletions
diff --git a/win32/perllib.c b/win32/perllib.c index e2b245d84f..48843f92da 100644 --- a/win32/perllib.c +++ b/win32/perllib.c @@ -371,6 +371,7 @@ DllMain(HANDLE hModule, /* DLL module handle */ * process termination or call to FreeLibrary. */ case DLL_PROCESS_DETACH: + PerlIO_cleanup(); EndSockets(); #if defined(USE_THREADS) || defined(USE_ITHREADS) if (PL_curinterp) diff --git a/win32/win32.c b/win32/win32.c index f28efa27cb..ed12430497 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -2443,11 +2443,7 @@ win32_popen(const char *command, const char *mode) } /* we have an fd, return a file stream */ -#ifdef USE_PERLIO return (PerlIO_fdopen(p[parent], (char *)mode)); -#else - return (fdopen(p[parent], (char *)mode)); -#endif cleanup: /* we don't need to check for errors here */ |