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

[hmbrand]

Author: hmbrand
Date: Sat Oct 17 08:36:04 2009
New Revision: 13405

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

Log:
prevent warnings for undefined f_schema

Modified: dbi/trunk/lib/DBD/File.pm
==============================================================================
--- dbi/trunk/lib/DBD/File.pm   (original)
+++ dbi/trunk/lib/DBD/File.pm   Sat Oct 17 08:36:04 2009
@@ -426,7 +426,8 @@
 
        my ($file, @tables, %names);
        my $schema = exists $dbh->{f_schema}
-           ? $dbh->{f_schema} eq "" ? undef : $dbh->{f_schema}
+           ? defined $dbh->{f_schema} && $dbh->{f_schema} ne ""
+               ? $dbh->{f_schema} : undef
            : eval { getpwuid ((stat $dir)[4]) };
        while (defined ($file = readdir ($dirh))) {
            my $tbl = DBD::File::file2table ($dbh, $dir, $file, 0, 0) or next;