sub symdumplog {
my ($line) = @_;
- if (fileno SYMDUMP) {
- print SYMDUMP $line."\n";
- } else {
- &status("SD: ".$line);
+ if ( fileno SYMDUMP ) {
+ print SYMDUMP $line . "\n";
+ }
+ else {
+ &status( "SD: " . $line );
}
}
my $o = Devel::Symdump->rnew();
# scalars.
- foreach ($o->scalars) {
-# &symdumpRecur($_);
- symdumplog(" scalar($_)");
+ foreach ( $o->scalars ) {
+
+ # &symdumpRecur($_);
+ symdumplog(" scalar($_)");
}
}
sub symdumpRecur {
my $x = shift;
- if (ref $x eq "HASH") {
- foreach (keys %$x) {
- &symdumpRecur($_);
- }
- } else {
- symdumplog("unknown: $x");
+ if ( ref $x eq 'HASH' ) {
+ foreach ( keys %$x ) {
+ &symdumpRecur($_);
+ }
+ }
+ else {
+ symdumplog("unknown: $x");
}
}
sub symdumpAllFile {
&DEBUG('before open');
- if (&IsParam('symdumpLogFile')) {
- my $file = $param{'symdumpLogFile'};
- &status("opening fh to symdump ($file)");
- if (!open(SYMDUMP,">$file")) {
- &ERROR('cannot open dumpvars.');
- return;
- }
+ if ( &IsParam('symdumpLogFile') ) {
+ my $file = $param{'symdumpLogFile'};
+ &status("opening fh to symdump ($file)");
+ if ( !open( SYMDUMP, ">$file" ) ) {
+ &ERROR('cannot open dumpvars.');
+ return;
+ }
}
&DEBUG('after open');
symdumpAll();
- if (fileno SYMDUMP) {
- &status('closing fh to symdump');
- close SYMDUMP;
+ if ( fileno SYMDUMP ) {
+ &status('closing fh to symdump');
+ close SYMDUMP;
}
&status("SD: count == $countlines");
}
1;
+
+# vim:ts=4:sw=4:expandtab:tw=80