projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5735ebe
)
on VMS, always exit with failure in my_failure_exit
author
Craig A. Berry
<craigberry@mac.com>
Tue, 1 Jun 2004 23:16:58 +0000
(18:16 -0500)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Wed, 2 Jun 2004 08:21:30 +0000
(08:21 +0000)
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <
40BD54BA
.9040708@mac.com>
p4raw-id: //depot/perl@22893
perl.c
patch
|
blob
|
history
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);