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

[hmbrand]

Author: hmbrand
Date: Wed May 19 05:59:22 2010
New Revision: 13999

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

Log:
tidy

Modified: dbi/trunk/lib/DBD/File.pm
==============================================================================
--- dbi/trunk/lib/DBD/File.pm   (original)
+++ dbi/trunk/lib/DBD/File.pm   Wed May 19 05:59:22 2010
@@ -116,7 +116,7 @@
            }
        }
     $this->STORE (Active => 1);
-    $this->func ('set_versions');
+    $this->func ("set_versions");
     return $this;
     } # connect
 
@@ -446,7 +446,7 @@
                ? $dbh->{f_schema} : undef
            : eval { getpwuid ((stat $dir)[4]) };
        while (defined ($file = readdir ($dirh))) {
-           my $tbl = $dbh->func ($dir, $file, 0, 0, 'file2table') or next;
+           my $tbl = $dbh->func ($dir, $file, 0, 0, "file2table") or next;
            push @tables, [ undef, $schema, $tbl, "TABLE", undef ];
            }
        unless (closedir $dirh) {
@@ -710,7 +710,7 @@
        my $dbh = $data->{Database};
        exists $dbh->{f_meta}->{$table} or
            $dbh->func ($dbh->{f_dir}, $file, 1,
-                       $quoted, 'file2table');
+                       $quoted, "file2table");
        $meta = $dbh->{f_meta}->{$table} || {};
        }
     else {
@@ -746,7 +746,7 @@
     if ($fh) {
        if (my $enc = $data->{Database}{f_encoding}) {
            binmode $fh, ":encoding($enc)" or
-                croak "Failed to set encoding layer '$enc' on $file: $!";
+               croak "Failed to set encoding layer '$enc' on $file: $!";
            }
        else {
            binmode $fh or croak "Failed to set binary mode on $file: $!";