Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100755 28 lines (16 sloc) 0.488 kb
fc6dd579 »
2012-05-02 released new version 7.12
1 #!/usr/bin/perl
2
3 use FindBin;
4 use File::Find::Rule;
5
6 my $ver = $ARGV[0] ? "./$ARGV[0]" : ".";
7
8 print "\n";
9
10 my $find = File::Find::Rule;
11
12 my @files = $find->file()->name('*.pm','*..t')->in($ver);
13
14 foreach my $file (sort @files) {
15
16 print "processing $file\n";
17 system "perltidy --profile=perltidyrc $file";
18
19 }
20
21 my @backups = $find->file()->name('*.pm.bak')->in($ver);
22
23 foreach my $file (sort @backups) {
24
25 print "removing backup $file\n";
26 unlink $file;
27
28 }
29
Something went wrong with that request. Please try again.