|
my @files ;
my $blib = File::Spec->catfile( qw(blib lib) );
find(\ &wanted , grep { -d } ( $blib , 'bin' ));
plan tests => scalar @files ;
foreach my $file ( @files ) {
unix_file_ok( $file );
}
sub wanted {
push @files , $File::Find::name if /\.p(l|m|od)$/;
}
sub unix_file_ok {
my ( $filename ) = @_ ;
local $/;
open F, "< $filename"
or die "Couldn't open '$filename' : $!\n" ;
binmode F;
my $content = <F>;
my $i ;
my @lines = grep { /\x0D\x0A$/sm } map { sprintf "%s: %s\x0A" , $i ++, $_ } split /\x0A/, $content ;
unless (is( scalar @lines , 0, "'$filename' contains no windows newlines" )) {
diag $_ for @lines ;
};
close F;
};
|