Mailing List Archive

Author: creamyg
Date: 2008-08-17 12:41:38 -0700 (Sun, 17 Aug 2008)
New Revision: 3732

Removed:
trunk/devel/bin/tidyall.plx
Log:
Remove tidyall.plx, replaced by tidyall.


Deleted: trunk/devel/bin/tidyall.plx
===================================================================
--- trunk/devel/bin/tidyall.plx 2008-08-17 02:53:01 UTC (rev 3731)
+++ trunk/devel/bin/tidyall.plx 2008-08-17 19:41:38 UTC (rev 3732)
@@ -1,63 +0,0 @@
-#!/usr/bin/perl
-use strict;
-use warnings;
-
-use File::Find qw( find );
-use File::Spec::Functions qw( updir catfile );
-use Text::Diff;
-use Perl::Tidy;
-
-my $source_dir = shift @ARGV;
-die "usage: ./tidyall.plx DIR" unless defined $source_dir;
-
-# grab all perl filepaths
-my @paths;
-find(
- { wanted => sub {
- push @paths, $File::Find::name
- if $File::Find::name =~ /\.(pm|t|pl|plx|cgi)$/i;
- },
- no_chdir => 1,
- },
- $source_dir
-);
-
-my $rc_filepath = catfile( updir(), 'devel', 'conf', 'kinotidyrc' );
-die "can't find kinotidyrc" unless -f $rc_filepath;
-
-for my $path (@paths) {
- # grab orig text
- print "$path\n";
- open( my $fh, '<', $path )
- or die "couldn't open file '$path' for reading: $!";
- my $orig_text = do { local $/; <$fh> };
- close $fh;
-
- my $tidied = '';
- Perl::Tidy::perltidy(
- source => \$orig_text,
- destination => \$tidied,
- perltidyrc => $rc_filepath,
- );
-
- if ( index( $orig_text, $tidied ) != 0 ) {
- print diff( \$orig_text, \$tidied );
- print "\nModify? ";
- my $response;
- while (1) {
- chomp( $response = <STDIN> );
- if ( $response !~ /^[yn]/ ) {
- print "Please answer y/n: ";
- next;
- }
- last;
- }
- if ( $response =~ /^y/ ) {
- print "Modifying...\n";
- open( my $f, '>', $path )
- or die "couldn't open '$path' for writing: $!";
- print $f $tidied;
- close $f;
- }
- }
-}


_______________________________________________
kinosearch-commits mailing list
kinosearch-commits@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits