diff options
author | Richard Levitte <levitte@openssl.org> | 2016-02-24 01:32:51 +0100 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2016-02-26 17:38:39 +0100 |
commit | cb212f239a51da19952609991d3cb20172231dee (patch) | |
tree | 962b7aa43a8fa06cd79d1845d488010e7b4e08b1 /Configure | |
parent | d3c02d844abeaf961bad692cf6f3876ccabf2435 (diff) |
Make the table entry printer in Configure aware of ARRAYs
Reviewed-by: Rich Salz <rsalz@openssl.org>
Diffstat (limited to 'Configure')
-rwxr-xr-x | Configure | 14 |
1 files changed, 12 insertions, 2 deletions
@@ -2238,14 +2238,24 @@ sub print_table_entry if ($type eq "TABLE") { print "\n"; print "*** $target\n"; - printf "\$%-12s = %s\n", $_, $target{$_} foreach (@sequence); + foreach (@sequence) { + if (ref($target{$_}) eq "ARRAY") { + printf "\$%-12s = %s\n", $_, join(" ", @{$target{$_}}); + } else { + printf "\$%-12s = %s\n", $_, $target{$_}; + } + } } elsif ($type eq "HASH") { my $largest = length((sort { length($a) <=> length($b) } @sequence)[-1]); print " '$target' => {\n"; foreach (@sequence) { if ($target{$_}) { - print " '",$_,"'"," " x ($largest - length($_))," => '",$target{$_},"',\n"; + if (ref($target{$_}) eq "ARRAY") { + print " '",$_,"'"," " x ($largest - length($_))," => [ ",join(", ", map { "'$_'" } @{$target{$_}})," ],\n"; + } else { + print " '",$_,"'"," " x ($largest - length($_))," => '",$target{$_},"',\n"; + } } } print " },\n"; |