- foreach $symname (sort keys %$package) {
- local *sym = $$package{$symname};
- next unless (defined %sym);
- next if ($symname =~/::/);
-
- &dumpvarslog("Hash '$packname' \%$symname");
- $countlines++;
-
- next unless ($packname eq 'main::');
- foreach (keys %{$symname}) {
- my $val = ${$symname}{$_};
- if (defined $val) {
- &dumpvarslog(" $_ => '$val'.");
- } else {
- &dumpvarslog(" $_ => <NULL>.");
- }
- }
+ foreach $symname ( sort keys %$package ) {
+ local *sym = $$package{$symname};
+ next unless ( %sym );
+ next if ( $symname =~ /::/ );
+
+ &dumpvarslog("Hash '$packname' \%$symname");
+ $countlines++;
+
+ next unless ( $packname eq 'main::' );
+ foreach ( keys %{$symname} ) {
+ my $val = ${$symname}{$_};
+ if ( defined $val ) {
+ &dumpvarslog(" $_ => '$val'.");
+ }
+ else {
+ &dumpvarslog(" $_ => <NULL>.");
+ }
+ }