#!/bin/bash -f

VER=devel
PRJDIR=`pbgetparam -p pb pbprojdir | perl -pe 's/(\$ENV.+\})/$1/eeg'`
for i in `find $PRJDIR/$VER -name '*.pm' -o -name '*.t' -o -name 'pb*' -a ! -name '*~'`;
do
    file $i | grep -qi perl
    if [ $? -eq 0 ]; then
        perl -c $i 2>&1 | grep -v ' OK'
    fi
done
