From: Paul Eggert <eggert@cs.ucla.edu>
Date: Tue, 8 Oct 2019 22:28:10 +0000 (-0700)
Subject: Port functions/shell test to Solaris 10
X-Git-Tag: 4.2.93~21
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=1cf3932a39057789ca525afb02bcfc823b238cb7;p=thirdparty%2Fmake.git

Port functions/shell test to Solaris 10

* tests/scripts/functions/shell: Port exit-status calculation
to Solaris 10 with Perl 5.8.4.
---

diff --git a/tests/scripts/functions/shell b/tests/scripts/functions/shell
index 54514e83..59865293 100644
--- a/tests/scripts/functions/shell
+++ b/tests/scripts/functions/shell
@@ -69,7 +69,12 @@ all: ; @echo $(.SHELLSTATUS)
     }
     waitpid($pid, 0);
     # .SHELLSTATUS for a signal gives 128 + the signal number
-    my $ret = $? + 128;
+    my $ret = $?;
+    if ($ret > 255) {
+       # Solaris 10 perl 5.8.4 puts signal number + 128 into the high 8 bits.
+       $ret >>= 8;
+    }
+    $ret |= 128;
 
     run_make_test('.PHONY: all
 $(shell kill -2 $$$$)