Bug 253696: work around NAME_lc bug in ActiveState Perl on Win32

Patch by Byron Jones <bugzilla@glob.com.au>
r=jouni,bbaetz a=justdave

diff --git a/Bugzilla/DB.pm b/Bugzilla/DB.pm
index 445e29500d50bc07299c1dcfd16fd2888ab06906..ca2ee29fa6e6ba1dea1b95b1d67af0b68ee9f63a 100644 (file)
--- a/Bugzilla/DB.pm
+++ b/Bugzilla/DB.pm
@@ -152,8 +152,12 @@ sub _connect {
                              Password => $db_pass,
                              ShowErrorStatement => 1,
                              HandleError => \&_handle_error,
-                             FetchHashKeyName => 'NAME_lc',
                              TaintIn => 1,
+                             FetchHashKeyName => 'NAME',  
+                             # Note: NAME_lc causes crash on ActiveState Perl
+                             # 5.8.4 (see Bug 253696)
+                             # XXX - This will likely cause problems in DB
+                             # back ends that twiddle column case (Oracle?)
                            });
 
     return $dbh;