--- isdnlog/tools/dest/makedest.old 2002-02-22 12:10:25.000000000 +0100 +++ isdnlog/tools/dest/makedest 2003-04-28 11:31:39.000000000 +0200 @@ -85,7 +85,7 @@ while ($ARGV[0] =~ /^-(.)(\S*)/) { print "Writing to $dest_gdbm\n" if($verbose); if (!$tied) { unlink $dest_gdbm unless($append); - tie(%db, 'AnyDBM_File',$dest_gdbm, O_RDWR | ($append ? 0 : O_CREAT), 0644); # make new + tie(%db, 'AnyDBM_File',$dest_gdbm, O_RDWR | ($append ? 0 : O_CREAT | O_TRUNC | O_RDWR), 0644); # make new } unless($append) {