From 9332c9bb2ddb7832ef60b8c2813d5c68a80f56ab Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 2 Oct 2001 16:26:04 +0000 Subject: [PATCH] allow array context stuff --- cmd/show/var.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/cmd/show/var.pl b/cmd/show/var.pl index 29d7b350..de35e55f 100644 --- a/cmd/show/var.pl +++ b/cmd/show/var.pl @@ -17,9 +17,10 @@ my @out; foreach $f (@f) { # print "\$f = $f\n"; - my $var = eval "$f"; - if (defined $var) { - my $dd = Data::Dumper->new([ $var ], [ "$f" ]); + my @in; + push @in, (eval $f); + if (defined @in) { + my $dd = Data::Dumper->new([ @in ], [ "$f" ]); $dd->Indent(1); $dd->Quotekeys(0); my $s = $dd->Dumpxs; -- 2.43.0