projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8a54011
)
tweak for change#7173
author
Gurusamy Sarathy
<gsar@cpan.org>
Mon, 9 Oct 2000 19:41:54 +0000
(19:41 +0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Mon, 9 Oct 2000 19:41:54 +0000
(19:41 +0000)
p4raw-link: @7173 on //depot/perl:
a10b7b7eee64efea010bfdba91243503341ba68d
p4raw-id: //depot/perl@7181
win32/win32sck.c
patch
|
blob
|
history
diff --git
a/win32/win32sck.c
b/win32/win32sck.c
index
594a2e3
..
3b81d8b
100644
(file)
--- 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;
}