From 1cf3932a39057789ca525afb02bcfc823b238cb7 Mon Sep 17 00:00:00 2001
From: Paul Eggert <eggert@cs.ucla.edu>
Date: Tue, 8 Oct 2019 15:28:10 -0700
Subject: [PATCH] Port functions/shell test to Solaris 10

* tests/scripts/functions/shell: Port exit-status calculation
to Solaris 10 with Perl 5.8.4.
---
 tests/scripts/functions/shell | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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