From fea880cf62f824529ec8f240e43e9504d0bc300e Mon Sep 17 00:00:00 2001
From: "lpsolit%gmail.com" <>
Date: Fri, 5 Aug 2005 00:10:37 +0000
Subject: [PATCH] =?utf8?q?Bug=20303088:=20MoreSQLData=20and=20FetchSQLData?=
 =?utf8?q?/FetchOneColumn=20may=20return=20wrong=20results=20-=20Patch=20b?=
 =?utf8?q?y=20Fr=C3=A9d=C3=A9ric=20Buclin=20<LpSolit@gmail.com>=20r=3Dwurb?=
 =?utf8?q?lzap,justdave=20a=3Djustdave?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Bugzilla/DB.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Bugzilla/DB.pm b/Bugzilla/DB.pm
index 1fad0079b7..905ceeb38b 100644
--- a/Bugzilla/DB.pm
+++ b/Bugzilla/DB.pm
@@ -54,6 +54,9 @@ use Bugzilla::Util;
 # Bugzilla.pm. See bug 192531 for details.
 our $_current_sth;
 our @SQLStateStack = ();
+
+my $_fetchahead;
+
 sub SendSQL {
     my ($str) = @_;
 
@@ -64,6 +67,8 @@ sub SendSQL {
     # This is really really ugly, but its what we get for not doing
     # error checking for 5 years. See bug 189446 and bug 192531
     $_current_sth->{RaiseError} = 0;
+
+    undef $_fetchahead;
 }
 
 # Its much much better to use bound params instead of this
@@ -80,8 +85,6 @@ sub SqlQuote {
     return $res;
 }
 
-# XXX - mod_perl
-my $_fetchahead;
 sub MoreSQLData {
     return 1 if defined $_fetchahead;
 
-- 
2.47.3