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