[Yapcom-commit] rev 102 - yapcom/trunk/bin

[prev] [thread] [next] [lurker] [Date index for 2003/12/2]

Author: gabor
Date: 2003-12-02 23:02:48 +0200 (Tue, 02 Dec 2003)
New Revision: 102

Added:
   yapcom/trunk/bin/run_perltidy
Log:
perltiy script taken from Siesta, and changed to some other set of random flags

Added: yapcom/trunk/bin/run_perltidy
===================================================================
--- yapcom/trunk/bin/run_perltidy	2003-12-02 20:08:04 UTC (rev 101)
+++ yapcom/trunk/bin/run_perltidy	2003-12-02 21:02:48 UTC (rev 102)
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl
+use strict;
+use File::Find::Rule;
+# Perl::Tidy     - for this to run  you have to install Perl::Tidy and make sure perltidy is in the PATH 
+
+mkdir 'tidy';
+for my $file (<t/*.t>, <bin/*.pl>, <cgi/*>, find( name => '*.pm', in => 'lib'), find( name => '*.pm', in => 't/lib') ) {
+    (my $cached = $file) =~ s{/}{_}g;
+    $cached = "tidy/$cached";
+    if ((stat $file)[9] > ((stat $cached)[9] || 0)) {
+        print "tidying $file\n";
+        `perltidy -l=0 -pt=2 -bt=2 -bbt=2 -lp -cti=0 -nolq -i=3 $file -o $cached && cp $cached $file && touch $cached`;
+    }
+}
+
+


Property changes on: yapcom/trunk/bin/run_perltidy
___________________________________________________________________
Name: svn:executable
   + *

• [Yapcom-commit] rev 102 - yapcom/trunk/bin svn 23:02 on 02 Dec 2003

Generated at 23:05 on 02 Dec 2003 by mariachi 0.51