Add new step to run_byacc which:

[p5sagit/p5-mst-13.2.git] / ext / IO / IO.xs

diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs
index 4987b3d..8bdc133 100644 (file)
--- a/ext/IO/IO.xs
+++ b/ext/IO/IO.xs
@@ -420,20 +420,23 @@ sockatmark (sock)
    InputStream sock
    PROTOTYPE: $
    PREINIT:
-     int fd,flag,result;
+     int fd;
    CODE:
    {
      fd = PerlIO_fileno(sock);
 #ifdef HAS_SOCKATMARK
-     flag = sockatmark(fd);
+     RETVAL = sockatmark(fd);
 #else
+     {
+       int flag = 0;
 #   ifdef SIOCATMARK
-     if (ioctl(fd, SIOCATMARK, &flag) != 0)
-       XSRETURN_UNDEF;
+       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: