From 055cc98b3a222b0a03cf1cef5ce1f1d9d9ad12f1 Mon Sep 17 00:00:00 2001
From: hjp <hjp@d47eeb7a-11fe-0310-b519-e5a4e12f9765>
Date: Tue, 26 Nov 2013 21:51:49 +0000
Subject: [PATCH] fixed trivial errors

---
 scripts/remove_session | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scripts/remove_session b/scripts/remove_session
index ccc90d7..de12ff2 100755
--- a/scripts/remove_session
+++ b/scripts/remove_session
@@ -16,13 +16,13 @@ my $ca = Simba::CA->new({
 
 my $dbh = $ca->{dbh};
 
-for my $session (@ARGV[0]) {
+for my $session (@ARGV) {
     print "deleting session $session\n";
     my $n_instances = $dbh->do("delete from instances where session=?", {}, $session);
     print "\t$n_instances instances deleted\n";
 
     # remove orphaned records:
-    $sessions
+    my $sessions
 	= $dbh->selectcol_arrayref(
 	    q{select s.id from instances i right outer join sessions s  on i.session=s.id where i.id is null}
 	  );