X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/375ed12a42c6092b1af1d8e395bf3dadd9a66e48..fa9804ae636b8a12f77d0e537f628658d44ea189:/dist/IO/IO.xs

diff --git a/dist/IO/IO.xs b/dist/IO/IO.xs
index eed7139..4b13feb 100644
--- a/dist/IO/IO.xs
+++ b/dist/IO/IO.xs
@@ -566,11 +566,10 @@ sockatmark (sock)
    InputStream sock
    PROTOTYPE: $
    PREINIT:
-     int fd;
+     int fd = PerlIO_fileno(sock);
    CODE:
    {
 #ifdef HAS_SOCKATMARK
-     int fd = PerlIO_fileno(sock);
      if (fd < 0) {
        errno = EBADF;
        RETVAL = -1;
@@ -579,6 +578,11 @@ sockatmark (sock)
      }
 #else
      {
+     if (fd < 0) {
+       errno = EBADF;
+       RETVAL = -1;
+     }
+     else {
        int flag = 0;
 #   ifdef SIOCATMARK
 #     if defined(NETWARE) || defined(WIN32)
@@ -592,6 +596,7 @@ sockatmark (sock)
 #   endif
        RETVAL = flag;
      }
+     }
 #endif
    }
    OUTPUT: