lib/App/Glacier/Roster/GDBM.pm


1
2
3
4
5
6
7
8
9
10
11
12

package App::Glacier::Roster::GDBM;
use parent 'App::Glacier::DB::GDBM';

sub configtest {
    my ($class, $cfg, @path) = @_;
    unless ($cfg->isset(@path, 'file')) {
	$cfg->set(@path, 'file', '/var/lib/glacier/job.db');
    }
    $class->SUPER::configtest($cfg, @path);
}

1;