[Treebase-guts] SF.net SVN: treebase:[287] trunk/treebase-core/src/main/perl/check/check

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

Revision: 287
          http://treebase.svn.sourceforge.net/treebase/?rev=287&view=rev
Author:   rvos
Date:     2009-11-19 10:51:20 +0000 (Thu, 19 Nov 2009)

Log Message:
-----------
Reformatted some code

Modified Paths:
--------------
    trunk/treebase-core/src/main/perl/check/check

Modified: trunk/treebase-core/src/main/perl/check/check
===================================================================
--- trunk/treebase-core/src/main/perl/check/check	2009-11-19 10:39:24 UTC (rev 286)
+++ trunk/treebase-core/src/main/perl/check/check	2009-11-19 10:51:20 UTC (rev 287)
@@ -145,13 +145,15 @@
 
 my $OK = 1;
 my @warnings;
-$type->new($id)->dump(action => \&prt, seen => {}, 
-		      prune => \%prune,
-		      show_all => $opt{a},
-		      warnings => \@warnings,
-		      attr_check => \&attr_check,
-		      defined($opt{d}) ? (maxdepth => $opt{d}) : (),
-    );
+$type->new($id)->dump(
+    action     => \&prt, 
+    seen       => {}, 
+    prune      => \%prune,
+    show_all   => $opt{a},
+    warnings   => \@warnings,
+    attr_check => \&attr_check,
+    defined($opt{d}) ? (maxdepth => $opt{d}) : (),
+);
 
 for my $w (@warnings) {
     print STDERR "*** $w\n";


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