remove defined %hash and defined @array tests

diff --git a/scripts/symname.pl b/scripts/symname.pl
index f0562ab43cd879bae3ad5f4169e0cf10bbeb1d7f..88a4754dc13191bdebddadcc8c857ce1f1f8676a 100755 (executable)
--- a/scripts/symname.pl
+++ b/scripts/symname.pl
@@ -96,10 +96,10 @@ sub DumpPackage {
             $scalar++;
             $size += length($sym);
         }
-        elsif ( defined @sym ) {
+        elsif ( @sym ) {
             $size += &DumpArray( $pad + 1, $symname, \@sym );
         }
-        elsif ( defined %sym ) {
+        elsif ( %sym ) {
             $size += &DumpHash( $pad + 1, $symname, \%sym );
         }
         elsif ( ( $symname =~ /::/ ) and ( $symname ne 'main::' ) ) {

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::' );
 

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index e66e6d8dcd99b823f518444d08f3a3144b5e2dee..bcb794a1abd85a3b556d568774f957b43c9fb5c2 100644 (file)
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -49,7 +49,7 @@ sub parseCmdHook {
 
     &shmFlush();
 
-    if ( !defined %cmdhooks ) {
+    if ( !%cmdhooks ) {
         &WARN('%cmdhooks does not exist.');
         return 0;
     }

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");