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) {
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.