mirror of
https://github.com/ovh/the-bastion.git
synced 2025-01-06 15:31:56 +08:00
56 lines
1.7 KiB
Bash
Executable file
56 lines
1.7 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
|
|
|
|
# shellcheck disable=SC2064
|
|
trap "rm -f $resultfile" EXIT
|
|
resultfile=$(mktemp)
|
|
|
|
cmdline="-Mstrict -Mwarnings -I$basedir/lib/perl"
|
|
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
|
|
if [ "${PIPESTATUS[0]}" -ne 0 ]; then
|
|
# shellcheck disable=SC2094
|
|
flock "$resultfile" echo -n . >> "$resultfile"
|
|
exit 1
|
|
fi
|
|
if [ -n "$DEBUG" ]; then
|
|
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
|
|
) &
|
|
fi
|
|
done
|
|
|
|
# wait for all parallel check processes to be done
|
|
wait
|
|
|
|
fails=$(wc -c < "$resultfile")
|
|
|
|
if [ "$fails" -ne 0 ] ; then
|
|
action_error "Got $fails errors"
|
|
exit "$fails"
|
|
else
|
|
action_done ""
|
|
fi
|
|
|
|
if [ -x "$basedir/bin/dev/perl-use-all.sh" ] ; then
|
|
"$basedir/bin/dev/perl-use-all.sh"
|
|
exit $?
|
|
fi
|