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