Author: hmbrand
Date: Wed Oct 7 06:39:19 2009
New Revision: 13381
Modified:
dbi/trunk/lib/DBD/File.pm
Log:
Enable f_schema to be "" for $DBI_DSN
Modified: dbi/trunk/lib/DBD/File.pm
==============================================================================
--- dbi/trunk/lib/DBD/File.pm (original)
+++ dbi/trunk/lib/DBD/File.pm Wed Oct 7 06:39:19 2009
@@ -426,7 +426,7 @@
my ($file, @tables, %names);
my $schema = exists $dbh->{f_schema}
- ? $dbh->{f_schema}
+ ? $dbh->{f_schema} eq "" ? undef : $dbh->{f_schema}
: eval { getpwuid ((stat $dir)[4]) };
while (defined ($file = readdir ($dirh))) {
my $tbl = DBD::File::file2table ($dbh, $dir, $file, 0, 0) or next;
@@ -920,6 +920,9 @@
foo
bar
+Defining f_schema to the empty string is equal to setting it to C<undef>,
+this to enable the DSN to be C<dbi:CSV:f_schema=;f_dir=.>.
+
=back
=head2 Driver private methods
