updated check_perl_syntax.sh

pull/2/head
Hari Sekhon 8 years ago
parent b3849e0a61
commit 59f416847e

@ -19,9 +19,13 @@ srcdir="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
. "$srcdir/utils.sh" . "$srcdir/utils.sh"
if [ -z "$(find -L "${1:-.}" -maxdepth 2 -type f -iname '*.pl' -o -iname '*.pm' -o -iname '*.t')" ]; then
exit 0
fi
section "Perl Syntax Checks" section "Perl Syntax Checks"
for x in $(find "${1:-.}" -maxdepth 2 -type f -iname '*.pl' -o -iname '*.pm' -o -iname '*.t'); do for x in $(find -L "${1:-.}" -maxdepth 2 -type f -iname '*.pl' -o -iname '*.pm' -o -iname '*.t'); do
isExcluded "$x" && continue isExcluded "$x" && continue
#printf "%-50s" "$x:" #printf "%-50s" "$x:"
#$perl -Tc $I_lib $x #$perl -Tc $I_lib $x

Loading…
Cancel
Save