From 33993daf6e2e336cfa08cb20827d017702c0ab32 Mon Sep 17 00:00:00 2001
From: "bugzilla%glob.com.au" <>
Date: Fri, 6 May 2005 21:16:54 +0000
Subject: Bug 292821: "Attempt to free unreferenced scalar" running checksetup
 Patch By Byron Jones <bugzilla@glob.com.au> r=mkanat,r=vladd,a=justdave

---
 Bugzilla/DB/Mysql.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Bugzilla/DB/Mysql.pm b/Bugzilla/DB/Mysql.pm
index 2ca0f52e6..17c3d6b9e 100644
--- a/Bugzilla/DB/Mysql.pm
+++ b/Bugzilla/DB/Mysql.pm
@@ -492,8 +492,12 @@ sub bz_column_info_real {
     # so we have to get all the columns on the table and find 
     # the one we want.
     my $info_sth = $self->column_info(undef, undef, $table, '%');
-    my $all_cols = $info_sth->fetchall_hashref("COLUMN_NAME");
-    my $col_data = $all_cols->{$column};
+
+    # Don't use fetchall_hashref as there's a Win32 DBI bug (292821)
+    my $col_data;
+    while ($col_data = $info_sth->fetchrow_hashref) {
+        last if $col_data->{'COLUMN_NAME'} eq $column;
+    }
 
     if (!defined $col_data) {
         return undef;
-- 
cgit v1.2.3-24-g4f1b