Author: hmbrand
Date: Sun May 30 03:42:28 2010
New Revision: 14086
Modified:
dbi/trunk/lib/DBD/File.pm
Log:
$schema can be undef, so do not interpolate
Modified: dbi/trunk/lib/DBD/File.pm
==============================================================================
--- dbi/trunk/lib/DBD/File.pm (original)
+++ dbi/trunk/lib/DBD/File.pm Sun May 30 03:42:28 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\0$tbl"}++ or
+ $seen{$schema}{$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.