diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-10-09 19:41:54 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-10-09 19:41:54 +0000 |
| commit | 9114b07188664b459df71eeae70be5619f29b102 (patch) | |
| tree | f65d6792767559034b4030b71ddf99bcc566d8ca /win32 | |
| parent | 8a5401159d56cbb71df52570ea8863e0907174b7 (diff) | |
| download | perl-9114b07188664b459df71eeae70be5619f29b102.tar.gz | |
tweak for change#7173
p4raw-link: @7173 on //depot/perl: a10b7b7eee64efea010bfdba91243503341ba68d
p4raw-id: //depot/perl@7181
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32sck.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/win32/win32sck.c b/win32/win32sck.c index 594a2e3099..3b81d8bcae 100644 --- a/win32/win32sck.c +++ b/win32/win32sck.c @@ -431,7 +431,9 @@ my_fclose (FILE *pf) win32_fflush(pf); err = closesocket(osf); if (err == 0) { +#if defined(USE_FIXED_OSFHANDLE) || defined(PERL_MSVCRT_READFIX) _set_osfhnd(fileno(pf), INVALID_HANDLE_VALUE); +#endif (void)fclose(pf); /* handle already closed, ignore error */ return 0; } |