Configure death handler: bail out early when run in eval block
authorRichard Levitte <levitte@openssl.org>
Tue, 24 Jul 2018 17:29:06 +0000 (19:29 +0200)
committerRichard Levitte <levitte@openssl.org>
Tue, 24 Jul 2018 20:15:28 +0000 (22:15 +0200)
Reviewed-by: Rich Salz <rsalz@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/6776)

(cherry picked from commit 1a6c30029802179ebe0ec1eedfdc9d78bb6dc4dd)

Configure

index 19bab077791871586735ecb8fdabc4c5039fb3fe..2ed0157e6c506b289c795c52429b363e479d3169 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -2163,6 +2163,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 <<"_____";