X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FTest-EOL.git;a=blobdiff_plain;f=lib%2FTest%2FEOL.pm;h=1b5b8c479722e1a3f762564de2d0d65d8991712e;hp=25628c32baf0de6cea588842b3c685a2ce70ac46;hb=939ef6135463a53256f555cf9bc6846c5d4c6b31;hpb=c7727ff947f82d977f7c80aece4a8fdb6118dea1 diff --git a/lib/Test/EOL.pm b/lib/Test/EOL.pm index 25628c3..1b5b8c4 100644 --- a/lib/Test/EOL.pm +++ b/lib/Test/EOL.pm @@ -79,7 +79,7 @@ sub _show_whitespace { sub _debug_line { my ( $options, $line ) = @_; $line->[2] =~ s/\n\z//g; - return "line $line->[1] : $line->[0] " . ( + return "line $line->[1]: $line->[0] " . ( $options->{show_lines} ? qq{: } . _show_whitespace( $line->[2] ) : q{} ); } @@ -88,7 +88,7 @@ sub eol_unix_ok { my $file = shift; my $test_txt; $test_txt = shift if !ref $_[0]; - $test_txt ||= "No windows line endings in '$file'"; + $test_txt ||= "No incorrect line endings in '$file'"; my $options = shift if ref $_[0] eq 'HASH'; $options ||= { trailing_whitespace => 0,