1 files changed, 1 insertions, 1 deletions
diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs
index 4987b3d555..3abc94b274 100644
--- a/ext/IO/IO.xs
+++ b/ext/IO/IO.xs
@@ -420,7 +420,7 @@ sockatmark (sock)
    InputStream sock
    PROTOTYPE: $
    PREINIT:
-     int fd,flag,result;
+     int fd,flag=0;
    CODE:
    {
      fd = PerlIO_fileno(sock);