Save and regurgitate exit status at END

sot · Jan 9, 2023 · cc6be07 · cc6be07
1 parent 2be5f87
commit cc6be07
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/starcheck/src/starcheck.pl b/starcheck/src/starcheck.pl
@@ -1165,6 +1165,10 @@ sub usage
 }
 
 END {
+    # Keep and return program exit status at end of END.
+    my $exit_status = $?;
+
+    # If the Python process id is defined, kill that process and wait
     if (defined $pid) {
 	if ($par{verbose} gt 1){
 	    my $server_calls = call_python("get_server_calls");
@@ -1178,6 +1182,7 @@ END
 	kill 9, $pid;                    # must it be 9 (SIGKILL)?
         my $gone_pid = waitpid $pid, 0;  # then check that it's gone
     }
+    exit($exit_status);
 };
 
 =pod