|
|
|
@ -19,9 +19,13 @@ srcdir="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
|
|
|
|
|
|
|
|
|
|
. "$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"
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
#printf "%-50s" "$x:"
|
|
|
|
|
#$perl -Tc $I_lib $x
|
|
|
|
|