Commit cb212f23 authored by Richard Levitte's avatar Richard Levitte
Browse files

Make the table entry printer in Configure aware of ARRAYs 



Reviewed-by: default avatarRich Salz <rsalz@openssl.org>
parent d3c02d84

Configure

+12 −2
Original line number Diff line number Diff line
@@ -2238,16 +2238,26 @@ 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{$_}) {

                if (ref($target{$_}) eq "ARRAY") {

                    print "      '",$_,"'"," " x ($largest - length($_))," => [ ",join(", ", map { "'$_'" } @{$target{$_}})," ],\n";

                } else {

                    print "      '",$_,"'"," " x ($largest - length($_))," => '",$target{$_},"',\n";

                }

	    }

	}

	print "    },\n";

    }

}