| 1 |
#!/bin/sh |
#!/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 |
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 'syntax error' | sed -e 's/^.* at //' -e 's/ line / +/' -e 's/,.*$//'` |
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 |
test ! -z "$check" && vi $check |
Parent Directory
| 
Revision Log
| 
Patch