Make VersionParser temporarily set NAME_lc if using a dbh

This commit is contained in:
Brian Fraser
2012-07-13 01:52:59 -03:00
parent 541d001d2a
commit 01f64ad724

View File

@@ -137,6 +137,7 @@ sub BUILDARGS {
if ( blessed($_[0]) && $_[0]->can("selectrow_hashref") ) {
PTDEBUG && _d("VersionParser got a dbh, trying to get the version");
my $dbh = $_[0];
local $dbh->{FetchHashKeyName} = 'NAME_lc';
my $query = eval {
$dbh->selectall_arrayref(q<SHOW VARIABLES LIKE 'version%'>, { Slice => {} })
};