Configure death handler: bail out early when run in eval block

Reviewed-by: Rich Salz <rsalz@openssl.org> (Merged from https://github.com/openssl/openssl/pull/6776)
2018-07-24 19:29:06 +02:00 · 2018-07-24 19:29:06 +02:00 · 1a6c300298
parent 61ac9fc5c4
commit 1a6c300298
1 changed files with 1 additions and 0 deletions
--- a/1
+++ b/1
@ -2722,6 +2722,7 @@ exit(0);
 # Death handler, to print a helpful message in case of failure #######
 #
 sub death_handler {
+    die @_ if $^S;
    my $build_file = $target{build_file} // "build file";
    print STDERR <<"_____";