Show arrays nicely

This commit is contained in:
Jamie Cameron
2011-02-25 20:55:59 -08:00
parent 990d4aeabe
commit 02bc34a23c

View File

@ -24,7 +24,9 @@ else {
if (@data) {
print &ui_columns_start($d->{'titles'});
foreach $r (@data) {
print &ui_columns_row($r);
@prow = map { ref($_) eq 'ARRAY' ? join(", ", @$_)
: $_ } @$r;
print &ui_columns_row(\@prow);
}
print &ui_columns_end();
}