bin/kv

changeset 1142
dd4f69be5e32
parent 1115
15ca9da8cd59
--- a/bin/kv
+++ b/bin/kv
@@ -5,6 +5,8 @@ use AnyDBM_File;
 
 my ($filename, $method, @args) = @ARGV;
 
+$filename .= ".$]";
+
 tie my %h, 'AnyDBM_File', $filename, O_RDWR|O_CREAT, 0660
   or die "tie $filename: $!";
 

mercurial