#!/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 ) {
print "$file\n";
my $r = `perltidy $file`;
if( $r ) {
print $r;
next;
}
print `diff -u $file $file.tdy`;
}