trunk/bin/check-syntax.sh

#!/bin/sh

if [ ! -z "$1" ] ; then
        perl -Ilib -wc $1
        exit
fi

svk status -q | grep '.pm$' | cut -c4- | xargs -i perl -Ilib -wc {} 2>&1 \; | tee var/syntax-check
check=`cat var/syntax-check | grep ' at ' | sed -e 's/^.* at //' -e 's/ line \([0-9]*\),*.*$/ +\1/'`
echo "# check $check"
test ! -z "$check" && vi $check
1	#!/bin/sh
2
3	if [ ! -z "$1" ] ; then
4	perl -Ilib -wc $1
5	exit
6	fi
7
8	svk status -q \| grep '.pm$' \| cut -c4- \| xargs -i perl -Ilib -wc {} 2>&1 \; \| tee var/syntax-check
9	check=`cat var/syntax-check \| grep ' at ' \| sed -e 's/^.* at //' -e 's/ line \([0-9]\),.*$/ +\1/'`
10	echo "# check $check"
11	test ! -z "$check" && vi $check