develooper Front page | perl.dbi.changes | Postings from April 2012

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

From:
mjevans
Date:
April 19, 2012 11:45
Subject:
[svn:dbi] r15275 - in dbi/trunk: . lib/DBI/DBD
Message ID:
20120419184525.C8AA2184AFE@xx12.develooper.com
Author: mjevans
Date: Thu Apr 19 11:45:24 2012
New Revision: 15275

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

Log:
Fix for rt 67223 and 69260 - neither Jens nor Merijn have tuits to look at this right now and the the patch seems reasonably sensible since list_tables returns @table_list and not @tables. Note the DBI rt was marked patched but I think it was only patched in a branch and not in trunk.


Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes	(original)
+++ dbi/trunk/Changes	Thu Apr 19 11:45:24 2012
@@ -13,6 +13,7 @@
   RT#76572 - Allow renaming columns in fetchall_arrayref hash slices
     thanks to Dagfinn Ilmari Manns�ker
   RT#76296 - _install_method fails to set CvFILE correctly
+  RT#67223 and RT#69260 in SqlEngine "list_tables" pushes to the wrong list
 
 =head2 Changes in DBI 1.619-TRIAL (svn r15271) 18th April 2012
 

Modified: dbi/trunk/lib/DBI/DBD/SqlEngine.pm
==============================================================================
--- dbi/trunk/lib/DBI/DBD/SqlEngine.pm	(original)
+++ dbi/trunk/lib/DBI/DBD/SqlEngine.pm	Thu Apr 19 11:45:24 2012
@@ -685,7 +685,8 @@
     my @tables = $dbh->func("get_avail_tables") or return;
     foreach my $ref (@tables)
     {
-        push @tables, $ref->[2];
+        # rt69260 and rt67223 - the same issue in 2 different queues
+        push @table_list, $ref->[2];
     }
 
     return @table_list;



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About