#!/usr/bin/perl
use strict;
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();