[svn:dbi] r10676 - dbi/trunk/lib/DBD

[timbo]

Author: timbo
Date: Thu Jan 31 12:21:52 2008
New Revision: 10676

Modified:
   dbi/trunk/lib/DBD/DBM.pm

Log:
DBD::DBM bug fix from J Davitt.


Modified: dbi/trunk/lib/DBD/DBM.pm
==============================================================================
--- dbi/trunk/lib/DBD/DBM.pm    (original)
+++ dbi/trunk/lib/DBD/DBM.pm    Thu Jan 31 12:21:52 2008
@@ -525,7 +525,7 @@
     my($self, $data, $row_aryref) = @_;
     $data->{Database}->{dbm_tables}->{$self->{table_name}}->{c_cols}
        = $row_aryref;
-    next unless $self->{store_metadata};
+    return unless $self->{store_metadata};
     my $stmt = $data->{f_stmt};
     my $col_names = join ',', @{$row_aryref};
     my $schema = $data->{Database}->{Statement};