2 # DumpVars2.pl: Perl variables dumper ][.
4 # Version: v0.1 (20020329)
16 print SYMDUMP $line."\n";
18 &status("SD: ".$line);
23 my $o = Devel::Symdump->rnew();
26 foreach ($o->scalars) {
28 symdumplog(" scalar($_)");
35 if (ref $x eq "HASH") {
40 symdumplog("unknown: $x");
45 &DEBUG('before open');
46 if (&IsParam('symdumpLogFile')) {
47 my $file = $param{'symdumpLogFile'};
48 &status("opening fh to symdump ($file)");
49 if (!open(SYMDUMP,">$file")) {
50 &ERROR('cannot open dumpvars.');
59 &status('closing fh to symdump');
63 &status("SD: count == $countlines");