view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for App::Milter::Limit::Plugin::SQLite

0.52  2017-08-04
    - Kwalitee: enable warnings
    - add a smoke test
    - don't attempt to chown the database file unless user and group are
      configured

0.51  2010-03-30
    - dzil: use my @MSCHOUT plugin bundle
    - fix t/compile.t: was loading BerkeleyDB plugin instead
    - add signature test

0.50      2010-03-29 13:27:14 America/Chicago
    - initial release

lib/App/Milter/Limit/Plugin/SQLite.pm  view on Meta::CPAN

    unless ($self->_table_exists($self->table)) {
        $self->_create_table($self->table);
    }

    # make sure the db file has the right owner.
    my $uid = $self->config_get('global', 'user');
    my $gid = $self->config_get('global', 'group');

    if (defined $uid and defined $gid) {
        my $db_file = $self->db_file;
        chown $uid, $gid, $db_file or die "chown($db_file): $!";
    }
}

sub child_init {
    my $self = shift;

    debug("reopen db handle");

    if (my $dbh = $self->_dbh) {
        $dbh->disconnect;