Author: hmbrand
Date: Sun May 30 03:46:27 2010
New Revision: 14087
Modified:
dbi/trunk/lib/DBD/File.pm
Log:
Even safer schema-undef
We really ought to require defined-or :)
Modified: dbi/trunk/lib/DBD/File.pm
==============================================================================
--- dbi/trunk/lib/DBD/File.pm (original)
+++ dbi/trunk/lib/DBD/File.pm Sun May 30 03:46:27 2010
@@ -447,7 +447,7 @@
while (defined ($file = readdir ($dirh))) {
my ($tbl, $meta) = $class->get_table_meta ($dbh, $file, 0, 0) or
next; # XXX
# $tbl && $meta && -f $meta->{f_fqfn} or next;
- $seen{$schema}{$tbl}++ or
+ $seen{defined $schema ? $schema : "\0"}{$tbl}++ or
push @tables, [ undef, $schema, $tbl, "TABLE", undef ];
}
unless (closedir $dirh) {
