X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fsymname.pl;fp=scripts%2Fsymname.pl;h=88a4754dc13191bdebddadcc8c857ce1f1f8676a;hb=427ddda525082d1a4e23a5786c7c902cd262119f;hp=f0562ab43cd879bae3ad5f4169e0cf10bbeb1d7f;hpb=2a105f1e4a7325741fea2664e5cc8dd7deea842d;p=infobot.git diff --git a/scripts/symname.pl b/scripts/symname.pl index f0562ab..88a4754 100755 --- 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::' ) ) {