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

[email protected]
Newsgroups perl.dbi.changes
Message-ID <[email protected]>
Author: REHSACK
Date: Fri Jun  4 08:22:41 2010
New Revision: 14109

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

Log:
work around derived modules compatibility things


Modified: dbi/trunk/lib/DBD/File.pm
==============================================================================
--- dbi/trunk/lib/DBD/File.pm	(original)
+++ dbi/trunk/lib/DBD/File.pm	Fri Jun  4 08:22:41 2010
@@ -944,6 +944,7 @@
 
     my $meta = {};
     defined $dbh->{f_meta}{$table} and $meta = $dbh->{f_meta}{$table};
+DOUBLE_CKECK:
     unless ($meta->{initialized}) {
 	$self->bootstrap_table_meta ($dbh, $meta, $table);
 
@@ -958,7 +959,7 @@
 
 	# now we know a bit more - let's check if user can't use consequent spelling
 	# XXX add know issue about reset sql_identifier_case here ...
-	if( exists( $dbh->{f_meta}{$table} ) ) {
+	if (defined( $dbh->{f_meta}{$table} ) and $dbh->{f_meta}{$table}{initialized}) {
 	    $meta = $dbh->{f_meta}{$table};
 	    }
 	else {
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.