[svn:dbi] r15406 - dbi/branches/sqlengine/lib/DBD

[email protected] Mon, 1 Oct 2012 04:35:36 -0700 (PDT)
Newsgroups perl.dbi.changes
Message-ID <[email protected]>
Author: REHSACK
Date: Mon Oct  1 04:35:36 2012
New Revision: 15406

Modified:
   dbi/branches/sqlengine/lib/DBD/File.pm

Log:
- reset "sql_data_source" meta attribute when f_file is set
- fix table name computing when in stream mode


Modified: dbi/branches/sqlengine/lib/DBD/File.pm
==============================================================================
--- dbi/branches/sqlengine/lib/DBD/File.pm	(original)
+++ dbi/branches/sqlengine/lib/DBD/File.pm	Mon Oct  1 04:35:36 2012
@@ -407,7 +407,7 @@
 {
     my ($self, $meta, $file, $respect_case) = @_;
 
-    my $tbl;
+    my $tbl = $file;
     if (!$respect_case and $meta->{sql_identifier_case} == 1) { # XXX SQL_IC_UPPER
         $tbl = uc $tbl;
 	}
@@ -759,7 +759,7 @@
     } # get_table_meta
 
 my %reset_on_modify = (
-    f_file     => "f_fqfn",
+    f_file     => ["f_fqfn", "sql_data_source"],
     f_dir      => "f_fqfn",
     f_ext      => "f_fqfn",
     f_lockfile => "f_fqfn", # forces new file2table call