From 546d1821555cf331380c13a1c5a3d53adba64eb0 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sun, 19 Oct 2003 04:57:31 +0000
Subject: [PATCH] in progress

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@849 c11ca15a-4712-0410-83d8-924469b57eb5
---
 scripts/symname.pl | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/scripts/symname.pl b/scripts/symname.pl
index df8e158..dfa71c7 100755
--- a/scripts/symname.pl
+++ b/scripts/symname.pl
@@ -59,7 +59,7 @@ sub DumpHash{
  print "$padding$symname\n";
 
  foreach (@list) {
-  my $ref = ref %{$symname};
+  my $ref = ref %{$symname}; #FIXME
   $size += length($_);
   if ($ref eq 'ARRAY') {
    $size += &DumpArray($pad+1, "@" . $_, $_);
@@ -89,10 +89,15 @@ sub DumpPackage {
    print "$padding \$$symname='$sym'\n";
    $scalar++;
    $size += length($sym);
+  } elsif (defined @sym) {
+   $size += &DumpArray($pad+1, $symname, \@sym);
+  } elsif (defined %sym) {
+   $size += &DumpHash($pad+1, $symname, \%sym);
+  } elsif (($symname =~ /::/) and ($symname ne 'main::')) {
+   $size += &DumpPackage($pad+1, \%sym, $symname);
+  } else {
+   print("ERROR $symname" . ref $symname . "\n");
   }
-  $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::'));
  }
  print $padding."scalars $scalar, size $size\n";
  return $size;
-- 
2.39.5