From fccd45fd4601717aca1fe181c333976c189c66cc Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sat, 23 Nov 2002 23:51:29 +0000
Subject: [PATCH] hmmm

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@697 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/IRC/Schedulers.pl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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