From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 7 Jun 2005 14:44:55 +0000 (+0000)
Subject: Remove unneeded #ifdef VMS since VMS is not defined here anyway
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce6e1103a66e3cbd2c2ec85914dcbaa395276c13;p=p5sagit%2Fp5-mst-13.2.git

Remove unneeded #ifdef VMS since VMS is not defined here anyway
(spotted by Steve_p)

p4raw-id: //depot/perl@24731
---

diff --git a/util.c b/util.c
index a0135e4..b562f2f 100644
--- a/util.c
+++ b/util.c
@@ -2521,9 +2521,6 @@ Perl_my_pclose(pTHX_ PerlIO *ptr)
     Pid_t pid2;
     bool close_failed;
     int saved_errno = 0;
-#ifdef VMS
-    int saved_vaxc_errno;
-#endif
 #ifdef WIN32
     int saved_win32_errno;
 #endif
@@ -2541,9 +2538,6 @@ Perl_my_pclose(pTHX_ PerlIO *ptr)
 #endif
     if ((close_failed = (PerlIO_close(ptr) == EOF))) {
 	saved_errno = errno;
-#ifdef VMS
-	saved_vaxc_errno = vaxc$errno;
-#endif
 #ifdef WIN32
 	saved_win32_errno = GetLastError();
 #endif
@@ -2565,7 +2559,7 @@ Perl_my_pclose(pTHX_ PerlIO *ptr)
     rsignal_restore(SIGQUIT, &qstat);
 #endif
     if (close_failed) {
-	SETERRNO(saved_errno, saved_vaxc_errno);
+	SETERRNO(saved_errno, 0);
 	return -1;
     }
     return(pid2 < 0 ? pid2 : status == 0 ? 0 : (errno = 0, status));