* Merged r1666:1760 from src-cleanup branch

[infobot.git] / scripts / vartree.pl

diff --git a/scripts/vartree.pl b/scripts/vartree.pl
index 1b53de8e60fb6dc344dd45bba8da770a3248a33a..f22bbac414dbec440315959d21a1d0c6ee996540 100755 (executable)
--- a/scripts/vartree.pl
+++ b/scripts/vartree.pl
@@ -6,74 +6,74 @@
 local @test;
 local %test;
 
-$test{'hash0r'} = 2;
+$test{'hash0r'}   = 2;
 $test{'hegdfgsd'} = 'GSDFSDfsd';
 
-push(@test,"heh.");
-push(@test,\%test);
-
-&vartree(\%main::, 'main::');
+push( @test, "heh." );
+push( @test, \%test );
 
+&vartree( \%main::, 'main::' );
 
 sub tree {
-    my ($pad, $ref, $symname) = @_;
+    my ( $pad, $ref, $symname ) = @_;
     my $padded = " " x $pad;
     my @list;
     my $scalar = 0;
     my $size   = 0;
 
-    @list = keys %{$symname} if ($ref eq 'HASH');
-    @list = @{$symname} if ($ref eq 'ARRAY');
+    @list = keys %{$symname} if ( $ref eq 'HASH' );
+    @list = @{$symname}      if ( $ref eq 'ARRAY' );
 
     foreach (@list) {
-       my $ref = ref $_;
-
-       if ($ref eq 'HASH' or $ref eq 'ARRAY') {
-           print $padded."recursing $ref($_).\n";
-           &tree($pad+2, $ref, $_);
-       } elsif ($ref eq '') {
-           $scalar++;
-           $size += length($_);
-       }
+        my $ref = ref $_;
+
+        if ( $ref eq 'HASH' or $ref eq 'ARRAY' ) {
+            print $padded. "recursing $ref($_).\n";
+            &tree( $pad + 2, $ref, $_ );
+        }
+        elsif ( $ref eq '' ) {
+            $scalar++;
+            $size += length($_);
+        }
     }
-    print $padded."scalars $scalar, size $size\n";
+    print $padded. "scalars $scalar, size $size\n";
 }
 
 sub vartree {
-    my ($package, $packname) = @_;
+    my ( $package, $packname ) = @_;
     my $symname;
 
     # scalar.
-    foreach $symname (sort keys %$package) {
-       local *sym = $$package{$symname};
-       next unless (defined $sym);
-       print "scalar => $symname = '$sym'\n";
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( defined $sym );
+        print "scalar => $symname = '$sym'\n";
     }
 
     # array.
-    foreach $symname (sort keys %$package) {
-       local *sym = $$package{$symname};
-       next unless (defined @sym);
-       print "\@$symname\n";
-       &tree(2, "ARRAY", $symname);
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( defined @sym );
+        print "\@$symname\n";
+        &tree( 2, "ARRAY", $symname );
     }
 
     # hash.
-    foreach $symname (sort keys %$package) {
-       local *sym = $$package{$symname};
-       next unless (defined %sym);
-       print "\%$symname\n";
-       &tree(2, "HASH", $symname);
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( defined %sym );
+        print "\%$symname\n";
+        &tree( 2, "HASH", $symname );
     }
 
-    foreach $symname (sort keys %$package) {
-       local *sym = $$package{$symname};
-       next unless (defined %sym);
-       next unless ($symname =~ /::/);
-       next if ($symname eq 'main::');
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( defined %sym );
+        next unless ( $symname =~ /::/ );
+        next if ( $symname eq 'main::' );
 
-       print "recurse: $symname.\n";
-       &vartree(\%sym, $symname);
+        print "recurse: $symname.\n";
+        &vartree( \%sym, $symname );
     }
 
     print "end.\n";