[lucy-commits] svn commit: r1098456 - /incubator/lucy/trunk/devel/bin/lucytidy.pl

[ma...@apache.org]

Author: marvin
Date: Mon May  2 00:55:43 2011
New Revision: 1098456

URL: http://svn.apache.org/viewvc?rev=1098456&view=rev
Log:
Add perl/sample/ directory to list of ignores for lucytidy.pl.  This is
necessary because the sample code is copied directly out of POD files, and the
POD has some anti-perltidy tweaks to make it look better (e.g. shorter line
length, whitespace to prevent breakup of sample code blocks).

Modified:
    incubator/lucy/trunk/devel/bin/lucytidy.pl

Modified: incubator/lucy/trunk/devel/bin/lucytidy.pl
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/devel/bin/lucytidy.pl?rev=1098456&r1=1098455&r2=1098456&view=diff
==============================================================================
--- incubator/lucy/trunk/devel/bin/lucytidy.pl (original)
+++ incubator/lucy/trunk/devel/bin/lucytidy.pl Mon May  2 00:55:43 2011
@@ -23,7 +23,12 @@ use File::Temp qw( mktemp );
 use Getopt::Long;
 use Fcntl;
 
-my $ignore           = qr/(\.svn|\.git|modules.analysis.snowstem.source)/;
+my $ignore  = qr/(
+      \.svn
+    | \.git
+    | modules.analysis.snowstem.source
+    | perl.sample
+    )/x;
 my $scratch_template = catfile( tmpdir(), 'lucytidy_scratch_XXXXXX' );
 my $scratch          = mktemp($scratch_template);
 END { unlink $scratch }