Have Configure's HASH or TABLE produce complete lists

[oweals/openssl.git] / Configure

diff --git a/Configure b/Configure
index 4fec746c4c477fe50fdbed2d4ab495e5e7112115..4fbce036ceae36151cb053cc9be7f9785614183c 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -788,7 +788,9 @@ while (@tocheckfor) {
     @tocheckfor = (keys %new_tocheckfor);
 }
 
+our $die = sub { die @_; };
 if ($target eq "TABLE") {
+    local $die = sub { warn @_; };
     foreach (sort keys %table) {
        print_table_entry($_, "TABLE");
     }
@@ -803,6 +805,7 @@ if ($target eq "LIST") {
 }
 
 if ($target eq "HASH") {
+    local $die = sub { warn @_; };
     print "%table = (\n";
     foreach (sort keys %table) {
        print_table_entry($_, "HASH");