From 440f4f67dbdbacd8e2f06816fac0c09087024c07 Mon Sep 17 00:00:00 2001
From: hjp <hjp@d47eeb7a-11fe-0310-b519-e5a4e12f9765>
Date: Fri, 25 Mar 2011 12:15:34 +0000
Subject: [PATCH] avoid warning

---
 scripts/cleanup | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/cleanup b/scripts/cleanup
index 539ba60..0a4b1ce 100755
--- a/scripts/cleanup
+++ b/scripts/cleanup
@@ -59,7 +59,7 @@ for my $session (@$sessions) {
 }
 
 # remove orphaned records:
-my $sessions
+$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}
       );