mirror of
https://github.com/ovh/the-bastion.git
synced 2024-09-20 15:05:58 +08:00
40 lines
1.4 KiB
Bash
Executable file
40 lines
1.4 KiB
Bash
Executable file
#! /usr/bin/env bash
|
|
# vim: set filetype=sh ts=4 sw=4 sts=4 et:
|
|
|
|
basedir=$(readlink -f "$(dirname "$0")"/../..)
|
|
# shellcheck source=lib/shell/functions.inc
|
|
. "$basedir"/lib/shell/functions.inc
|
|
|
|
cmdline='-Mstrict -Mwarnings'
|
|
(( fails=0 ))
|
|
action_doing "Checking perl files syntax"
|
|
for i in $(find "$basedir"/bin -type f ! -name "*.orig") $(find "$basedir"/lib/perl -type f -name "*.pm") $(find "$basedir"/lib/perl -type f -name "*.inc")
|
|
do
|
|
i=$(readlink -f "$i")
|
|
if head -n1 "$i" | grep -Eq '/perl|/env perl' || head -n2 "$i" | grep -Eq '^package ' ; then
|
|
action_detail "${BLUE}$i${NOC}"
|
|
if grep -q -- 'perl -T' "$i"; then
|
|
# shellcheck disable=SC2086
|
|
perl $cmdline -Tc "$i" 2>&1 | grep -v OK$
|
|
else
|
|
# shellcheck disable=SC2086
|
|
perl $cmdline -c "$i" 2>&1 | grep -v OK$
|
|
fi
|
|
[ "${PIPESTATUS[0]}" -ne 0 ] && (( fails++ ))
|
|
[ -n "$DEBUG" ] || continue
|
|
grep -q '^use warnings' "$i" && echo "(spurious use warnings in $i)"
|
|
grep -q '^use strict' "$i" && echo "(spurious use strict in $i)"
|
|
grep -q '^use common::sense;' "$i" || echo "(missing common::sense in $i)"
|
|
fi
|
|
done
|
|
if [ -x "$basedir/bin/dev/perl-use-all.sh" ] ; then
|
|
"$basedir/bin/dev/perl-use-all.sh" || (( fails++ ))
|
|
fi
|
|
|
|
if [ "$fails" -ne 0 ] ; then
|
|
action_error "Got $fails errors"
|
|
else
|
|
action_done "success"
|
|
fi
|
|
exit "$fails"
|