[svn:dbi] r15447 - dbi/branches/sqlengine/lib/DBI/DBD

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