*** empty log message ***

[oss/stilllife.git] / forum / dumpbase

diff --git a/forum/dumpbase b/forum/dumpbase
index 410ae3cdc9c995c584f580d0faadf326d5500dc1..1652e6a985f9c5aa59d2c39dbfb05799dc581dcd 100644 (file)
--- a/forum/dumpbase
+++ b/forum/dumpbase
@@ -8,10 +8,12 @@ dbmopen %x,$ARGV[0],0644;
 while (my ($key,$val) = each %x) {
        my $data;
        eval {
-               $data = Dumper(thaw($val));     
+               $data = Data::Dumper->Dump([thaw($val)],[$key]);        
+               $data =~ s/^\$//;
+               $data =~ s/ = / => /s;
        };      
        if ($@) {
-               $data = $val;
+               $data = "$key => $val";
        }       
-       print $key, " => ",$data,"\n";
+       print $data,"\n";
 }