#!/usr/local/bin/perl
my
@files
=
qw( lib/Config/General/Hierarchical.pm Hierarchical/Dump.pm Hierarchical/DumpTest.pm Hierarchical/Test.pm Makefile.PL t/01_new.t t/02_read.t t/03_get.t t/04_constraint.t t/99_dump.t )
;
foreach
my
$file
(
@files
) {
"$file\n"
;
my
$r
= `perltidy
$file
`;
if
(
$r
) {
$r
;
next
;
}
`diff -u
$file
$file
.tdy`;
}