hmmm

[infobot.git] / src / IRC / Schedulers.pl

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