Report the lines win32 newlines are found at

diff --git a/t/maint/unix-newlines.t b/t/maint/unix-newlines.t
index 8a85a3d..c47dd17 100644 (file)
--- a/t/maint/unix-newlines.t
+++ b/t/maint/unix-newlines.t
@@ -5,23 +5,28 @@ use warnings;
 use Test::More;;
 
 use File::Find;
-use File::Slurp qw< slurp >;
-use Socket qw< $CRLF $LF >;
+use Socket '$CRLF';
 
 my $ext = qr/(?: t | pm | sql | js | php | inc | xml )/x;
 
 my @files;
 find( sub { push @files, $File::Find::name if -f && /\. $ext $/x }, '.' );
 
-plan tests => scalar @files;
+plan 'no_plan';
 
 for my $file (@files) {
-       my $cont = slurp $file;
-       if ( $cont and $cont =~ $CRLF ) {
-               pass "$file contains windows newlines";
-       } else {
-               fail "$file is made of unix newlines and win";
-       }
+    open my $fh, "<", $file or die "Can't open $file: $!";
+    binmode $fh;
+
+    my $ok = 1;
+    while (<$fh>) {
+        if (/$CRLF/) {
+            fail "$file has \\r\\n on line $.";
+            $ok = 0;
+        }
+    }
+
+    pass "$file has only unix newlines" if $ok;
 }