From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sun, 19 Oct 2003 04:50:20 +0000 (+0000)
Subject: scalars
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=35c10707a2b308ad3f62445993b51f96b70ea0a6;p=infobot.git

scalars


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@848 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/blootbot/scripts/symname.pl b/blootbot/scripts/symname.pl
index d4b5d93..df8e158 100755
--- a/blootbot/scripts/symname.pl
+++ b/blootbot/scripts/symname.pl
@@ -85,7 +85,11 @@ sub DumpPackage {
  my $symname;
  foreach $symname (sort keys %$package) {
   local *sym = $$package{$symname};
-  print "$padding \$$symname='$sym'\n" if (defined $sym);
+  if (defined $sym) {
+   print "$padding \$$symname='$sym'\n";
+   $scalar++;
+   $size += length($sym);
+  }
   $size += &DumpArray($pad+1, $symname, \@sym) if (defined @sym);
   $size += &DumpHash($pad+1, $symname, \%sym) if (defined %sym);
   $size += &DumpPackage($pad+1, \%sym, $symname) if (($symname =~ /::/) and ($symname ne 'main::'));