the-bastion/bin/dev/perl-check.sh

#! /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