Bug 292821: "Attempt to free unreferenced scalar" running checksetup

Patch By Byron Jones <bugzilla@glob.com.au> r=mkanat,r=vladd,a=justdave

diff --git a/Bugzilla/DB/Mysql.pm b/Bugzilla/DB/Mysql.pm
index 2ca0f52e648b58a90ebd613c9a2b7016d0bb6dfd..17c3d6b9e68bac1d678cafa6ea80fb94c57f51af 100644 (file)
--- 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;