foreach my $f (@files) {
next if $f eq 'skeleton.pl';
unlike( $f, qr/.*pl$/, "check for unhandled atomic updates: $f" );
next if $f eq 'README';
next if $f eq '.';
like( $f, qr/.*pl$/, "check for unhandled atomic updates: $f" );
}
done_testing();
-