src/tools/pgperlcritic/pgperlcritic


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

#!/bin/sh

# src/tools/pgperlcritic/pgperlcritic

test -f src/tools/pgperlcritic/perlcriticrc || {
	echo could not find src/tools/pgperlcritic/perlcriticrc
	exit 1
	}

set -e

# set this to override default perlcritic program:
PERLCRITIC=${PERLCRITIC:-perlcritic}

# locate all Perl files in the tree
{
	# take all .pl and .pm files
	find . -type f -a \( -name '*.pl' -o -name '*.pm' \) -print
	# take executable files that file(1) thinks are perl files
	find . -type f -perm -100 -exec file {} \; -print |
	egrep -i ':.*perl[0-9]*\>' |
	cut -d: -f1
} |
sort -u |
xargs $PERLCRITIC \
	  --quiet \
	  --program-extensions .pl \
	  --profile=src/tools/pgperlcritic/perlcriticrc