Updated modules

This commit is contained in:
Brian Fraser
2012-07-13 01:54:09 -03:00
parent 01f64ad724
commit 7f18bae253
12 changed files with 12 additions and 0 deletions

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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