10 my $ext = qr/(?: t | pm | sql | js | php | inc | xml )/x;
13 find
( sub { push @files, $File::Find
::name
if -f
&& /\. $ext $/x }, '.' );
17 for my $file (@files) {
18 open my $fh, "<", $file or die "Can't open $file: $!";
24 fail
"$file has \\r\\n on line $.";
29 pass
"$file has only unix newlines" if $ok;