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

Author: hmbrand
Date: Tue May 25 09:12:09 2010
New Revision: 14040

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

Log:
Fix initialization of meta attributes

Modified: dbi/trunk/lib/DBD/File.pm
==============================================================================
--- dbi/trunk/lib/DBD/File.pm	(original)
+++ dbi/trunk/lib/DBD/File.pm	Tue May 25 09:12:09 2010
@@ -404,6 +404,7 @@
 		? $dbh->{f_schema} : undef
 	    : eval { getpwuid ((stat $dir)[4]) }; # XXX Win32::pwent
 	while (defined ($file = readdir ($dirh))) {
+	    -f $file or next;	# No dir's, devices, or pipes. Only plain files
 	    # XXX $dbh->{f_meta} or ...
 	    my ($tbl, $meta) = $class->get_table_meta ($dbh, $file, 0, 0) or next; # XXX
 	    # XXX collect from $dbh->{f_meta}
@@ -740,21 +741,19 @@
 sub init_table_meta ($$$$$)
 {
     my ($self, $dbh, $table, $file_is_table, $quoted) = @_;
-    defined $dbh->{f_meta}->{$table} and "HASH" eq ref $dbh->{f_meta}->{$table} or
-        $dbh->{f_meta}->{$table} = {};
-    my $meta = $dbh->{f_meta}->{$table};
-    exists $meta->{f_dir} or
-	$meta->{f_dir} = $dbh->{f_dir};
-    defined $meta->{f_ext} or
-	$meta->{f_ext} = $dbh->{f_ext};
-    exists $meta->{f_encoding} or
-	$meta->{f_encoding} = $dbh->{f_encoding};
-    exists $meta->{f_lock} or
-	$meta->{f_lock} = $dbh->{f_lock};
-    exists $meta->{f_lockfile} or
-        $meta->{f_lockfile} = $dbh->{f_lockfile};
-    defined $meta->{f_fqfn} or
+
+    defined $dbh->{f_meta}{$table} and "HASH" eq ref $dbh->{f_meta}{$table} or
+        $dbh->{f_meta}{$table} = {};
+    my $meta = $dbh->{f_meta}{$table};
+    exists  $meta->{f_dir}	or $meta->{f_dir}	= $dbh->{f_dir};
+    defined $meta->{f_ext}	or $meta->{f_ext}	= $dbh->{f_ext};
+    defined $meta->{f_encoding}	or $meta->{f_encoding}	= $dbh->{f_encoding};
+    exists  $meta->{f_lock}	or $meta->{f_lock}	= $dbh->{f_lock};
+    exists  $meta->{f_lockfile}	or $meta->{f_lockfile}	= $dbh->{f_lockfile};
+    defined $meta->{f_schema}	or $meta->{f_schema}	= $dbh->{f_schema};
+    defined $meta->{f_fqfn}	or
 	$self->file2table ($meta, $table, $file_is_table, $quoted);
+
     } # init_table_meta
 
 sub default_table_meta ($$$)