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

Author: REHSACK
Date: Fri Jun  4 07:53:00 2010
New Revision: 14105

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

Log:
prevent wrongly double initialization of table's meta in get_versions


Modified: dbi/trunk/lib/DBD/DBM.pm
==============================================================================
--- dbi/trunk/lib/DBD/DBM.pm	(original)
+++ dbi/trunk/lib/DBD/DBM.pm	Fri Jun  4 07:53:00 2010
@@ -234,7 +234,7 @@
     my $class = $dbh->FETCH ("ImplementorClass");
     $class =~ s/::db$/::Table/;
     my (undef, $meta) = $class->get_table_meta( $dbh, $table, 1 );
-    $meta or $meta = {} and $class->bootstrap_table_meta( $dbh, $meta, $table );
+    $meta or ( $meta = {} and $class->bootstrap_table_meta( $dbh, $meta, $table ) );
 
     my $dtype = $meta->{dbm_type};
     $dtype .= ' + MLDBM + ' . $meta->{dbm_mldbm} if( $meta->{dbm_mldbm} );