From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 1 Jun 2004 23:16:58 +0000 (-0500)
Subject: on VMS, always exit with failure in my_failure_exit
X-Git-Tag: accepted/trunk/20130322.191538~21942
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=69232efac4da91085d3445ce98427a2706e520f7;p=platform%2Fupstream%2Fperl.git

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
---

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);