1#!/bin/sh
2#
3# $Id: tidy.sh 765 2009-05-20 07:18:40Z calle $
4
5TIDYRC=util/perltidyrc
6
7find . -name contrib -prune -o \( -name '*.pl' -o -name '*.pm' -o -name '*.t' \) -print |\
8xargs perltidy --profile=${TIDYRC} --backup-and-modify-in-place
9find . \( -name '*.pl.bak' -o -name '*.pm.bak' -o -name '*.t.bak' \) -type f -print |\
10xargs rm
11