# File is empty -- write header and master index
##
if (!$bytes_read) {
- if ( my $afh = $self->_fileobj->{audit_fh} ) {
- flock( $afh, LOCK_EX );
- print( $afh "# Database created on " . localtime(time) . "\n" );
- flock( $afh, LOCK_UN );
- }
+ $self->_fileobj->audit( "# Database created on" );
$self->write_file_header;
# Delete single key/value pair given tag and MD5 digested key.
##
my $self = shift;
- my ($tag, $md5) = @_;
+ my ($tag, $md5, $orig_key) = @_;
local($/,$\);