remove defined %hash and defined @array tests

[infobot.git] / src / Modules / DumpVars.pl

diff --git a/src/Modules/DumpVars.pl b/src/Modules/DumpVars.pl
index 3ca982de4bcf6da59a7cc98203bf03d6533fd3cc..71c1787a8bfc5b347d79d50caba0fe6595a23a0c 100644 (file)
--- a/src/Modules/DumpVars.pl
+++ b/src/Modules/DumpVars.pl
@@ -33,7 +33,7 @@ sub DumpNames(\%$) {
 
         foreach $symname ( sort keys %$package ) {
             local *sym = $$package{$symname};
-            next unless ( defined %sym );
+            next unless ( %sym );
             next unless ( $symname =~ /::/ );
             &dumpvarslog("   $symname");
             $countlines++;
@@ -67,7 +67,7 @@ sub DumpNames(\%$) {
     # Lists.
     foreach $symname ( sort keys %$package ) {
         local *sym = $$package{$symname};
-        next unless ( defined @sym );
+        next unless ( @sym );
 
         &dumpvarslog(
             "List '$packname' \@$symname (" . scalar( @{$symname} ) . ")" );
@@ -87,7 +87,7 @@ sub DumpNames(\%$) {
     # Hashes.
     foreach $symname ( sort keys %$package ) {
         local *sym = $$package{$symname};
-        next unless ( defined %sym );
+        next unless ( %sym );
         next if ( $symname =~ /::/ );
 
         &dumpvarslog("Hash '$packname' \%$symname");