Author: REHSACK
Date: Mon Oct 22 03:16:15 2012
New Revision: 15447
Modified:
dbi/branches/sqlengine/lib/DBI/DBD/SqlEngine.pm
Log:
avoid Subroutine DBI::st::sql_get_colnames redefined ... when loading DBD::DBM
and DBD::CSV
Modified: dbi/branches/sqlengine/lib/DBI/DBD/SqlEngine.pm
==============================================================================
--- dbi/branches/sqlengine/lib/DBI/DBD/SqlEngine.pm (original)
+++ dbi/branches/sqlengine/lib/DBI/DBD/SqlEngine.pm Mon Oct 22 03:16:15 2012
@@ -99,7 +99,7 @@
# XXX inject DBD::XXX::Statement unless exists
my $stclass = $class . "::st";
- $stclass->install_method("sql_get_colnames") unless (
$methods_installed{$class}++ );
+ $stclass->install_method("sql_get_colnames") unless (
$methods_installed{__PACKAGE__}++ );
return $drh->{$class};
} # driver
