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