2 # DumpVars2.pl: Perl variables dumper ][.
4 # Version: v0.1 (20020329)
15 if ( fileno SYMDUMP ) {
16 print SYMDUMP $line . "\n";
19 &status( "SD: " . $line );
24 my $o = Devel::Symdump->rnew();
27 foreach ( $o->scalars ) {
30 symdumplog(" scalar($_)");
37 if ( ref $x eq 'HASH' ) {
38 foreach ( keys %$x ) {
43 symdumplog("unknown: $x");
48 &DEBUG('before open');
49 if ( &IsParam('symdumpLogFile') ) {
50 my $file = $param{'symdumpLogFile'};
51 &status("opening fh to symdump ($file)");
52 if ( !open( SYMDUMP, ">$file" ) ) {
53 &ERROR('cannot open dumpvars.');
61 if ( fileno SYMDUMP ) {
62 &status('closing fh to symdump');
66 &status("SD: count == $countlines");
71 # vim:ts=4:sw=4:expandtab:tw=80