diff --git a/scripts/remove_session b/scripts/remove_session index de12ff2..b04e011 100755 --- a/scripts/remove_session +++ b/scripts/remove_session @@ -9,6 +9,7 @@ use strict; use Simba::CA; +$| = 1; my $ca = Simba::CA->new({ dbi_file => $ENV{SIMBA_DB_CONN} || "$ENV{HOME}/.dbi/simba", @@ -51,4 +52,6 @@ for my $session (@ARGV) { $dbh->do(q{delete from versions2 where id=?}, {}, $version); print "\tversion $version deleted\n"; } + $dbh->commit(); } +$dbh->disconnect();