You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
867 B
Bash
34 lines
867 B
Bash
9 years ago
|
#!/usr/bin/env bash
|
||
|
# vim:ts=4:sts=4:sw=4:et
|
||
|
#
|
||
|
# Author: Hari Sekhon
|
||
|
# Date: 2015-05-25 01:38:24 +0100 (Mon, 25 May 2015)
|
||
|
#
|
||
|
# https://github.com/harisekhon/nagios-plugins
|
||
|
#
|
||
|
# License: see accompanying Hari Sekhon LICENSE file
|
||
|
#
|
||
|
# If you're using my code you're welcome to connect with me on LinkedIn and optionally send me feedback to help improve or steer this or other code I publish
|
||
|
#
|
||
|
# http://www.linkedin.com/in/harisekhon
|
||
|
#
|
||
|
|
||
|
set -eu
|
||
|
[ -n "${DEBUG:-}" ] && set -x
|
||
|
srcdir="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
|
||
|
|
||
|
. "$srcdir/utils.sh"
|
||
|
|
||
|
section "Perl Syntax Checks"
|
||
|
|
||
9 years ago
|
for x in $(find "${1:-.}" -maxdepth 2 -type f -iname '*.pl' -o -iname '*.pm' -o -iname '*.t'); do
|
||
9 years ago
|
isExcluded "$x" && continue
|
||
|
#printf "%-50s" "$x:"
|
||
9 years ago
|
#$perl -Tc $I_lib $x
|
||
9 years ago
|
# -W too noisy
|
||
9 years ago
|
perl -Tc $x
|
||
9 years ago
|
done
|
||
|
section "All Perl programs passed syntax check"
|
||
|
echo
|
||
|
echo
|