if( $self->{'Flock'} eq 'yes'){
	    $self->{'Fh'} = new IO::File "$self->{'File'}", O_WRONLY|O_EXCL;
	    croak "error: can not lock open: ($self->{'File'})" 
		unless defined($self->{'Fh'});
		flock($self->{'Fh'},LOCK_EX);
	}

##</code><code>##

my $roll1 = @_;

##</code><code>##

my ($roll1) = @_;

##</code><code>##

sub _logroll {
    eval 'use Compress::Zlib';
    my $gzip = $@ ? '/usr/bin/gzip' : 'lib';

    for my $log_file ( @_ ) {
        my $rotator = Logfile::Rotate->new(
           File     => $log_file,
           Count    => 15,
           Dir      => $dir,
           Gzip     => $gzip,
           Flock    => 'yes',
           Persist  => 'yes'
        );
        $rotator->rotate();
    }
}