hmmm

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@697 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index afb9e55f29847e43a9f53e622592cc5a63e4ae17..44aff6866ab0dfb298d5a89f252ea97279867d4f 100644 (file)
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -255,15 +255,15 @@ sub seenFlushOld {
        }
 
        my $sth = $dbh->prepare($query);
-       $sth->execute;
+       if ($sth->execute) {
+           while (my @row = $sth->fetchrow_array) {
+               my ($nick,$time) = @row;
 
-       while (my @row = $sth->fetchrow_array) {
-           my ($nick,$time) = @row;
-
-           &dbDel("seen",{"nick"=>$nick});
-           $delete++;
+               &dbDel("seen",{"nick"=>$nick});
+               $delete++;
+           }
+           $sth->finish;
        }
-       $sth->finish;
     } elsif ($param{'DBType'} =~ /^dbm/i) {
        my $time = time();