From b58ef04af76eede793287475ad3c0d65b77c00c7 Mon Sep 17 00:00:00 2001
From: hjp <hjp@d47eeb7a-11fe-0310-b519-e5a4e12f9765>
Date: Sun, 1 Dec 2013 18:49:32 +0000
Subject: [PATCH] Added missing parameter to $versions->first(). How could this
 have worked before?

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

diff --git a/scripts/remove_session b/scripts/remove_session
index e35e33b..3b33aa6 100755
--- a/scripts/remove_session
+++ b/scripts/remove_session
@@ -94,8 +94,9 @@ sub remove_orphaned_versions {
 	$i++;
     }
     $dbh->{'mysql_use_result'} = 0;
+    print "\t$i records from instances processed, ", $versions->count(0, -1), " versions left\n";
 
-    for (my $version = $versions->first; $version; $version = $versions->next($version)) {
+    for (my $version = $versions->first(0); $version; $version = $versions->next($version)) {
 	$dbh->do(q{delete from versions2 where id=?}, {}, $version);
 	print "\tversion $version deleted\n";
     }