sub _logroll($;$) {

    my $gzip;
    eval qq(use Compress::Zlib);
        if ($@) {
            $gzip = q(/usr/bin/gzip);
        }
        else {
            $gzip = q(lib);
        }

    if ( scalar @_ == 1 ) {
        my $roll1 = @_;
        my $rollog1 = new Logfile::Rotate(
           File     => $roll1,
           Count    => 15,
           Dir      => $dir,
           Gzip     => $gzip,
           Flock    => 'no',
           Persist  => 'yes'
        );
        $rollog1->rotate();
    }
    elsif ( scalar @_ == 2 ) {
        my ($roll1, $roll2) = @_;
        my $rollog2 = new Logfile::Rotate(
           File     => $roll1,
           Count    => 15,
           Dir      => $dir,
           Gzip     => $gzip,
           Flock    => 'no',
           Persist  => 'yes'
        );

        my $rollog2a = new Logfile::Rotate(
           File      => $roll2,
           Count     => 15,
           Dir       => $dir,
           Gzip      => $gzip,
           Flock     => 'no',
           Persist   => 'yes'
        );
        
        $_->rotate() for ($rollog2, $rollog2a);
    }
}