X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F12-fail.t;h=a311f4d827c9efac8b41ca05cb26661f3e28b930;hb=56109bab8e37a348860481e48c0b292ecf31bb6b;hp=7a6f9f08f60cbd7ae4b63e653e5d914970500e14;hpb=1ec979a85aff746de645b4670694940728a9fb7c;p=catagits%2FTest-EOL.git diff --git a/t/12-fail.t b/t/12-fail.t index 7a6f9f0..a311f4d 100644 --- a/t/12-fail.t +++ b/t/12-fail.t @@ -31,7 +31,7 @@ $inc = "-I $inc" if $inc; { my ($dir, $file) = make_bad_file_3(); run_ok( "all_perl_files_ok( '$file' )", - qr/^not ok 1 - No incorrect line endings in '[^']*' \Qon line 9: [\r][\r][\r]/m, + qr/^not ok 1 - No incorrect line endings in '[^']*' \Qon line 1: [\r] /m, 'windows EOL found in tmp file 3' ); } @@ -124,8 +124,8 @@ sub new {\r my (\$class) = \@_;\r my \$self = bless { }, \$class;\r return \$self;\r -}\r\r\r\r - +}\r +\r \r 1;\r DUMMY