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=fccd45fd4601717aca1fe181c333976c189c66cc;p=infobot.git

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 afb9e55..44aff68 100644
--- 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();