File: perltidy.pl

package info (click to toggle)
libscrappy-perl 0.94112090-2
  • links: PTS, VCS
  • area: main
  • in suites: buster, jessie, jessie-kfreebsd, stretch
  • size: 988 kB
  • ctags: 122
  • sloc: perl: 2,247; makefile: 7
file content (15 lines) | stat: -rw-r--r-- 638 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
my $ver = $ARGV[0] ? "./$ARGV[0]" : ".";

print  "... cleaning up $ver";

system "perltidy --pro=perltidyrc " . $_ for glob "$ver/lib/*.pm";
system "perltidy --pro=perltidyrc " . $_ for glob "$ver/lib/Scrappy/*.pm";
system "perltidy --pro=perltidyrc " . $_ for glob "$ver/lib/Scrappy/Action/*.pm";
system "perltidy --pro=perltidyrc " . $_ for glob "$ver/lib/Scrappy/Plugin/*.pm";
system "perltidy --pro=perltidyrc " . $_ for glob "$ver/lib/Scrappy/Project/*.pm";
system "perltidy --pro=perltidyrc " . $_ for glob "$ver/lib/Scrappy/Scraper/*.pm";

if ($ver ne '.') {
    system "rm $ver.tar.gz";
    system "tar -czf $ver.tar.gz $ver/*";
}