view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/100_dns.t
t/200_socket.t
xt/check_changes.t
xt/consistent_version_numbers.t
xt/copyright.t
xt/cover.pl
xt/cpan_changes.t
xt/cpan_meta.t
xt/dist_manifest.t
xt/distribution.t
xt/eol.t
xt/kwalitee.t
xt/minimumversion.t
xt/no_tabs.t
xt/perlcritic.t
xt/pod_coverage.t
xt/pod_spell.t
xt/pod_spellrc
xt/pod_syntax.t
xt/portability_files.t
xt/signature.t

xt/eol.t  view on Meta::CPAN

use warnings;

open my $fh, '<', 'MANIFEST' or die $!;
while ($_ = <$fh>) {
    chomp;
    s/\t.*//s;
    open my $fh2, '<', $_ or next;
    my $line = <$fh2>;
    close $fh2;
    next unless /\.(c|cc|cpp|md|pl|pm|psgi|sh|t|txt)$/i or $line =~ m{^#!.*\bperl};
    eol_unix_ok $_, "No incorrect line endings in '$_'", { trailing_whitespace => 1, all_reasons => 1 };
}
close $fh;

done_testing();