1#!/bin/sh
2#
3# $Id: svntidy.sh 289 2008-04-15 07:44:16Z jakob $
4
5TIDYRC=util/perltidyrc
6
7svn status -q | egrep '\.pl$|\.pm$' | awk '{print $2}' |\
8xargs perltidy --profile=${TIDYRC} --backup-and-modify-in-place
9find . \( -name '*.pl.bak' -o -name '*.pm.bak' \) -type f -print |\
10xargs rm
11