diff --git a/lib/VersionParser.pm b/lib/VersionParser.pm index 0262db2f..14ca9cf6 100644 --- a/lib/VersionParser.pm +++ b/lib/VersionParser.pm @@ -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, { Slice => {} }) };