missing init in change#19533

p4raw-link: @19533 on //depot/perl: 1c8780751e85c3ece441fc8ecdff2f1dc99f9906

p4raw-id: //depot/perl@19537

diff --git a/win32/win32sck.c b/win32/win32sck.c
index d89c306..2c51cbc 100644 (file)
--- a/win32/win32sck.c
+++ b/win32/win32sck.c
@@ -291,7 +291,7 @@ win32_select(int nfds, Perl_fd_set* rd, Perl_fd_set* wr, Perl_fd_set* ex, const
     int r;
 #ifdef USE_SOCKETS_AS_HANDLES
     Perl_fd_set dummy;
-    int i, fd, save_errno;
+    int i, fd, save_errno = errno;
     FD_SET nrd, nwr, nex, *prd, *pwr, *pex;
 
     /* winsock seems incapable of dealing with all three null fd_sets,