From 69232efac4da91085d3445ce98427a2706e520f7 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Tue, 1 Jun 2004 18:16:58 -0500
Subject: [PATCH] on VMS, always exit with failure in my_failure_exit From:
 "Craig A. Berry" <craigberry@mac.com> Message-ID: <40BD54BA.9040708@mac.com>

p4raw-id: //depot/perl@22893
---
 perl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl.c b/perl.c
index e94c2ad..f387cf1 100644
--- a/perl.c
+++ b/perl.c
@@ -4616,7 +4616,7 @@ Perl_my_failure_exit(pTHX)
 	    STATUS_NATIVE_SET(44);
     }
     else {
-	if (!vaxc$errno && errno)	/* unlikely */
+	if (!vaxc$errno)		/* unlikely */
 	    STATUS_NATIVE_SET(44);
 	else
 	    STATUS_NATIVE_SET(vaxc$errno);
-- 
2.7.4