#!/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/bash-tools
#
# 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 -euo pipefail
[ -n " ${ DEBUG :- } " ] && set -x
srcdir = " $( cd " $( dirname " ${ BASH_SOURCE [0] } " ) " && pwd ) "
# shellcheck source=lib/utils.sh
. " $srcdir /lib/utils.sh "
filelist = " $( find " ${ 1 :- . } " -maxdepth 2 -type f -iname '*.pl' -o -iname '*.pm' -o -iname '*.t' | sort) "
if [ -z " $filelist " ] ; then
return 0 & >/dev/null || :
exit 0
fi
section "Perl Syntax Checks"
start_time = " $( start_timer) "
if [ -n " ${ NOSYNTAXCHECK :- } " ] ; then
echo "\$NOSYNTAXCHECK environment variable set, skipping perl syntax checks"
echo
elif [ -n " ${ QUICK :- } " ] ; then
echo "\$QUICK environment variable set, skipping perl syntax checks"
echo
else
max_len = 0
for x in $filelist ; do
if [ ${# x } -gt $max_len ] ; then
max_len = ${# x }
fi
done
# to account for the semi colon
( ( max_len + 1) )
for filename in $filelist ; do
isExcluded " $filename " && continue
printf " %- ${ max_len } s " " $filename : "
#$perl -Tc $I_lib $filename
# -W too noisy
# -Mstrict - flags common DESCRIPTION / VERSION unscoped
# -Mdiagnostics
# shellcheck disable=SC2154
# $perl is set in perl.sh which is included from utils.sh
$perl -I . -Tc " $filename " 2>& 1 | sed " s,^ $filename ,, "
done
time_taken " $start_time "
section2 "All Perl programs passed syntax check"
fi
echo