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

[email protected] Mon, 30 Aug 2010 13:49:06 -0700 (PDT)
Newsgroups perl.dbi.changes
Message-ID <[email protected]>
Author: hmbrand
Date: Mon Aug 30 13:49:06 2010
New Revision: 14360

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	Mon Aug 30 13:49:06 2010
@@ -225,7 +225,7 @@
     # don't call twice
     defined $phase or $phase = 0;
 
-    if( 0 == $phase ) {
+    if (0 == $phase) {
 	# f_ext should not be initialized
 	# f_map is deprecated (but might return)
 	$dbh->{f_dir}      = Cwd::abs_path (File::Spec->curdir ());
@@ -661,7 +661,7 @@
 
 	    $attr eq "NULLABLE"  and
 		return [ map { ( grep m/^NOT NULL$/ =>
-			    @{ $sth->{f_overall_defs}{$_}{constraints} || [] } )
+			    @{ $sth->{f_overall_defs}{$_}{constraints} || [] })
 			       ? 0 : 1 }
 			    @colnames ];
 	    }
@@ -1350,7 +1350,7 @@
 If you want to read the subdirectories of another directory, use
 
     my ($drh)  = DBI->install_driver ("CSV");
-    my (@list) = $drh->data_sources (f_dir => "/usr/local/csv_data" );
+    my (@list) = $drh->data_sources (f_dir => "/usr/local/csv_data");
 
 =head4 list_tables