Only test for an empty STDERR, we don't really care what STDOUT looks like

diff --git a/Changes b/Changes
index 2dcd8b7..cc99d93 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for Test-EOL
 
     - Fix test fails on < 5.8 perls
+    - Fix t/13-latin1.t failures on Win32 and under TB1.5
 
 1.0  2012-01-05
     - Fix misleading test failure diagnostics when only issue are

diff --git a/t/13-latin1.t b/t/13-latin1.t
index 62fd6c6..b0068da 100644 (file)
--- a/t/13-latin1.t
+++ b/t/13-latin1.t
@@ -13,18 +13,18 @@ $ENV{PERL5LIB} = join ($Config{path_sep}, @INC);
   print $fh "\xE1\xF3 how na\xEFve";
   close $fh;
 
-  my (undef, $outfile) = tempfile();
+  my (undef, $stderr) = tempfile();
 
-  `$^X -MTest::EOL -e "all_perl_files_ok( '$tmpdir' )" >$outfile 2>&1`;
+  `$^X -MTest::EOL -e "all_perl_files_ok( '$tmpdir' )" 2>$stderr`;
   ok(! $? );
 
-  my $out = do { local (@ARGV, $/) = $outfile; <> };
+  my $out = do { local (@ARGV, $/) = $stderr; <> };
 
   is (
     $out,
-    "ok 1 - No incorrect line endings in '$filename'\n1..1\n",
-    'no malformed unicode warnings',
+    '',
+    'no malformed unicode warnings on STDERR',
   );
 
-  unlink $outfile;
+  unlink $stderr;
 }