2 # DumpVars2.pl: Perl variables dumper ][.
4 # Version: v0.1 (20020329)
15 print SYMDUMP $line."\n";
17 &status("SD: ".$line);
22 my $o = Devel::Symdump->rnew();
25 foreach ($o->scalars) {
27 symdumplog(" scalar($_)");
34 if (ref $x eq "HASH") {
39 symdumplog("unknown: $x");
44 &DEBUG("before open");
45 if (&IsParam("symdumpLogFile")) {
46 my $file = $param{'symdumpLogFile'};
47 &status("opening fh to symdump ($file)");
48 if (!open(SYMDUMP,">$file")) {
49 &ERROR("cannot open dumpvars.");
58 &status("closing fh to symdump");
62 &status("SD: count == $countlines");