Author: REHSACK
Date: Sat Jun 5 10:02:38 2010
New Revision: 14112
Modified:
dbi/trunk/lib/DBD/File.pm
Log:
Fix arguments of clear_file_meta
Modified: dbi/trunk/lib/DBD/File.pm
==============================================================================
--- dbi/trunk/lib/DBD/File.pm (original)
+++ dbi/trunk/lib/DBD/File.pm Sat Jun 5 10:02:38 2010
@@ -463,7 +463,7 @@
sub clear_file_meta
{
- my ($dbh, $table, $attr, $value) = @_;
+ my ($dbh, $table) = @_;
my $class = $dbh->FETCH ("ImplementorClass");
$class =~ s/::db$/::Table/;
@@ -944,7 +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);