Well defined $? and introduction of ${^CHILD_ERROR_NATIVE} [PATCH]

Message-ID: <lr8y2cim24.fsf_-_@caliper.activestate.com>

p4raw-id: //depot/perl@24501

1 files changed, 4 insertions, 4 deletions

diff --git a/perl.c b/perl.c
index 66d5e1dc51..5f38e64363 100644
--- a/perl.c
+++ b/perl.c
@@ -4806,13 +4806,13 @@ Perl_my_failure_exit(pTHX)
 #else
     int exitstatus;
     if (errno & 255)
-	STATUS_POSIX_SET(errno);
+	STATUS_UNIX_SET(errno);
     else {
-	exitstatus = STATUS_POSIX >> 8;
+	exitstatus = STATUS_UNIX >> 8;
 	if (exitstatus & 255)
-	    STATUS_POSIX_SET(exitstatus);
+	    STATUS_UNIX_SET(exitstatus);
 	else
-	    STATUS_POSIX_SET(255);
+	    STATUS_UNIX_SET(255);
     }
 #endif
     my_exit_jump();