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