[Treebase-guts] SF.net SVN: treebase:[54] trunk/treebase-core/src/main/perl/lib/CIPRES/ TreeBase/RecDumper.pm

[<rv...@us...>]

Revision: 54
          http://treebase.svn.sourceforge.net/treebase/?rev=54&view=rev
Author:   rvos
Date:     2009-06-16 00:10:30 +0000 (Tue, 16 Jun 2009)

Log Message:
-----------
Some code formatting.

Modified Paths:
--------------
    trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/RecDumper.pm

Modified: trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/RecDumper.pm
===================================================================
--- trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/RecDumper.pm	2009-06-15 23:38:04 UTC (rev 53)
+++ trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/RecDumper.pm	2009-06-16 00:10:30 UTC (rev 54)
@@ -80,16 +80,14 @@
 		    }
 		}
 		elsif ($t eq 'DATE'){
-                    my ( $day, $month, $year );
+            my ( $day, $month, $year );
 		    if ( m|(\d{1,2})/(\d{1,2})/(\d{4})| ) {
-		        ( $day, $month, $year ) = 
-		        ( $1,   $2,     $3    );
+		        ( $day, $month, $year ) = ( $1, $2, $3 );
 		    }
-                    if ( m|(\d{4})-(\d{1,2})-(\d{1,2})| ) {
-                        ( $year, $month, $day ) =
-                        ( $1,    $2,     $3   );
-                    }
-                    $_ = "'${year}-${month}-${day}'";
+            if ( m|(\d{4})-(\d{1,2})-(\d{1,2})| ) {
+                ( $year, $month, $day ) = ( $1, $2, $3 );
+            }
+            $_ = "'${year}-${month}-${day}'";
 		}
 		else {
 		    croak("Unknown field type '$t'; aborting");


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.