Change 24731 by [EMAIL PROTECTED] on 2005/06/07 14:44:55
Remove unneeded #ifdef VMS since VMS is not defined here anyway
(spotted by Steve_p)
Affected files ...
... //depot/perl/util.c#461 edit
Differences ...
==== //depot/perl/util.c#461 (text) ====
Index: perl/util.c
--- perl/util.c#460~24729~ Tue Jun 7 06:53:59 2005
+++ perl/util.c Tue Jun 7 07:44:55 2005
@@ -2521,9 +2521,6 @@
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 @@
#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 @@
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));
End of Patch.
