X-Git-Url: https://wagner.pp.ru/gitweb/?a=blobdiff_plain;f=forum%2Fdumpbase;h=1652e6a985f9c5aa59d2c39dbfb05799dc581dcd;hb=07b26cc8c68fec7ce82e3cab703b676228f07da4;hp=410ae3cdc9c995c584f580d0faadf326d5500dc1;hpb=ca2ba3e6a15a53bdc210fd6acf8967bbd232b639;p=oss%2Fstilllife.git

diff --git a/forum/dumpbase b/forum/dumpbase
index 410ae3c..1652e6a 100644
--- 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";
 }