Revert "Restore errno after VMS hack in S_sv_gets_read_record."
authorCraig A. Berry <craigberry@mac.com>
Mon, 25 Mar 2013 01:31:59 +0000 (20:31 -0500)
committerCraig A. Berry <craigberry@mac.com>
Mon, 25 Mar 2013 01:31:59 +0000 (20:31 -0500)
This reverts commit d46f021e36854e800770363f716e7b4a846102ef.

This can be done more universally (and from the point of view of
sv.c, less obtrusively) in Perl_flex_fstat in vms/vms.c.

sv.c

index 4ed4349..3f68d9c 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -7674,7 +7674,6 @@ S_sv_gets_read_record(pTHX_ SV *const sv, PerlIO *const fp, I32 append)
 #include <rms.h>
     int fd;
     Stat_t st;
-    dSAVE_ERRNO;
 
     /* With a true, record-oriented file on VMS, we need to use read directly
      * to ensure that we respect RMS record boundaries.  The user is responsible
@@ -7689,8 +7688,6 @@ S_sv_gets_read_record(pTHX_ SV *const sv, PerlIO *const fp, I32 append)
            || st.st_fab_rfm == FAB$C_VFC
            || st.st_fab_rfm == FAB$C_FIX)) {
 
-       /* fstat does the equivalent of SETERRNO(EVMSERR, RMS$_IOP) on PPFs. */
-       RESTORE_ERRNO;
        bytesread = PerlLIO_read(fd, buffer, recsize);
     }
     else /* in-memory file from PerlIO::Scalar