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

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: $!";