[svn:dbi] r15020 - in dbi/trunk: . lib/DBI/DBD

[mjevans]

Author: mjevans
Date: Wed Nov 30 00:55:41 2011
New Revision: 15020

Modified:
   dbi/trunk/Changes
   dbi/trunk/lib/DBI/DBD/SqlEngine.pm

Log:
rt72343 - default table_info method used NAMES instead of NAME


Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes   (original)
+++ dbi/trunk/Changes   Wed Nov 30 00:55:41 2011
@@ -12,6 +12,8 @@
   Fixed the definition of ArrayTupleStatus and remove confusion over
     rows affected in list context of execute_array (Martin J. Evans)
   Fixed sql_type_cast example and typo in errors (Martin J. Evans)
+  Fixed default table_info in DBI::DBD::SqlEngine which passed NAMES
+    attribute instead of NAME to DBD::Sponge RT72343 (Martin J. Evans)
 
   Enhanced and standardized driver trace level mechanism (Tim Bunce)
   Removed old code that was an inneffective attempt to detect

Modified: dbi/trunk/lib/DBI/DBD/SqlEngine.pm
==============================================================================
--- dbi/trunk/lib/DBI/DBD/SqlEngine.pm  (original)
+++ dbi/trunk/lib/DBI/DBD/SqlEngine.pm  Wed Nov 30 00:55:41 2011
@@ -662,14 +662,14 @@
         my @tables = $dbh->func("get_avail_tables");
 
         # Temporary kludge: DBD::Sponge dies if @tables is empty. :-(
-        @tables or return;
+        # this no longer seems to be true @tables or return;
 
         my $dbh2 = $dbh->func("sql_sponge_driver");
         my $sth = $dbh2->prepare(
                                   "TABLE_INFO",
                                   {
                                      rows  => \@tables,
-                                     NAMES => $names,
+                                     NAME => $names,
                                   }
                                 );
         $sth or $dbh->set_err( $DBI::stderr, $dbh2->errstr );