From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sat, 23 Nov 2002 23:51:29 +0000 (+0000)
Subject: hmmm
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1114247e7c4278c3106ae8e8ce6ff8636208e9a9;p=infobot.git

hmmm


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

diff --git a/blootbot/src/IRC/Schedulers.pl b/blootbot/src/IRC/Schedulers.pl
index afb9e55..44aff68 100644
--- a/blootbot/src/IRC/Schedulers.pl
+++ b/blootbot/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();