remove defined %hash and defined @array tests

[infobot.git] / scripts / vartree.pl

diff --git a/scripts/vartree.pl b/scripts/vartree.pl
index f22bbac414dbec440315959d21a1d0c6ee996540..8517e3e8a548d881d67564ece000b4178b645468 100755 (executable)
--- a/scripts/vartree.pl
+++ b/scripts/vartree.pl
@@ -53,7 +53,7 @@ sub vartree {
     # array.
     foreach $symname ( sort keys %$package ) {
         local *sym = $$package{$symname};
-        next unless ( defined @sym );
+        next unless ( @sym );
         print "\@$symname\n";
         &tree( 2, "ARRAY", $symname );
     }
@@ -61,14 +61,14 @@ sub vartree {
     # hash.
     foreach $symname ( sort keys %$package ) {
         local *sym = $$package{$symname};
-        next unless ( defined %sym );
+        next unless ( %sym );
         print "\%$symname\n";
         &tree( 2, "HASH", $symname );
     }
 
     foreach $symname ( sort keys %$package ) {
         local *sym = $$package{$symname};
-        next unless ( defined %sym );
+        next unless ( %sym );
         next unless ( $symname =~ /::/ );
         next if ( $symname eq 'main::' );