atmark() code cleanaup.

p4raw-id: //depot/perl@9608

diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs
index 3abc94b..316075f 100644 (file)
--- a/ext/IO/IO.xs
+++ b/ext/IO/IO.xs
@@ -420,20 +420,24 @@ sockatmark (sock)
    InputStream sock
    PROTOTYPE: $
    PREINIT:
-     int fd,flag=0;
+     int fd;
    CODE:
    {
      fd = PerlIO_fileno(sock);
 #ifdef HAS_SOCKATMARK
-     flag = sockatmark(fd);
+     RETVAL = sockatmark(fd);
 #else
 #   ifdef SIOCATMARK
-     if (ioctl(fd, SIOCATMARK, &flag) != 0)
-       XSRETURN_UNDEF;
+     {
+       int flag = 0;
+
+       if (ioctl(fd, SIOCATMARK, &flag) != 0)
+        XSRETURN_UNDEF;
 #   else
-     not_here("IO::Socket::atmark");
-#  endif
-     RETVAL = flag;
+       not_here("IO::Socket::atmark");
+#   endif
+       RETVAL = flag;
+     }
 #endif
    }
    OUTPUT: