diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-05 22:08:19 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-05 22:08:19 +0000 |
| commit | b73db59cdbd5ebb7813123c6082df2b8933fe5e0 (patch) | |
| tree | cc7ea55f45142268ff662f1d0b1c8b7b65ad85a3 /win32/perllib.c | |
| parent | e4e99f0d17cfc47fc39e498c985a947bab69a660 (diff) | |
| download | perl-b73db59cdbd5ebb7813123c6082df2b8933fe5e0.tar.gz | |
winsock cleanup never done on Windows (leads to handle leaks)
p4raw-id: //depot/perl@6317
Diffstat (limited to 'win32/perllib.c')
| -rw-r--r-- | win32/perllib.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/win32/perllib.c b/win32/perllib.c index 857aada247..fae334608f 100644 --- a/win32/perllib.c +++ b/win32/perllib.c @@ -338,6 +338,10 @@ RunPerl(int argc, char **argv, char **env) EXTERN_C void set_w32_module_name(void); +EXTERN_C void +EndSockets(void); + + #ifdef __MINGW32__ EXTERN_C /* GCC in C++ mode mangles the name, otherwise */ #endif @@ -367,6 +371,7 @@ DllMain(HANDLE hModule, /* DLL module handle */ * process termination or call to FreeLibrary. */ case DLL_PROCESS_DETACH: + EndSockets(); break; /* The attached process creates a new thread. */ |