From dbd472cac62e388f0be6ae320cc7fff75caeded8 Mon Sep 17 00:00:00 2001
From: hjp <hjp@d47eeb7a-11fe-0310-b519-e5a4e12f9765>
Date: Sun, 1 Dec 2013 09:01:58 +0000
Subject: [PATCH] Commit. Flush stdout.

---
 scripts/remove_session | 3 +++
 1 file changed, 3 insertions(+)

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();