From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Mon, 31 Dec 2001 17:03:40 +0000 (+0100)
Subject: [ PATCH] Cygwin: one down one to go
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=51014d3ed70db1704d0df49424645f3d6b4d6224;p=p5sagit%2Fp5-mst-13.2.git

[ PATCH] Cygwin: one down one to go
Message-Id: <20011231170025.E05B.H.M.BRAND@hccnet.nl>

p4raw-id: //depot/perl@13982
---

diff --git a/lib/Pod/t/basic.t b/lib/Pod/t/basic.t
index a87cb8b..475df26 100644
--- a/lib/Pod/t/basic.t
+++ b/lib/Pod/t/basic.t
@@ -49,7 +49,7 @@ print "ok 1\n";
 
 # Hard-code a few values to try to get reproducible results.
 $ENV{COLUMNS} = 80;
-$ENV{TERM} = 'xterm';
+$ENV{TERM}    = 'xterm';
 $ENV{TERMCAP} = 'xterm:co=80:do=^J:md=\E[1m:us=\E[4m:me=\E[m';
 
 # Map of translators to file extensions to find the formatted output to
@@ -77,6 +77,7 @@ for (sort keys %translators) {
         open (TMP, 'out.tmp') or die "Cannot open out.tmp: $!\n";
         open (OUTPUT, "> out.$translators{$_}")
             or die "Cannot create out.$translators{$_}: $!\n";
+        binmode OUTPUT;
         local $_;
         while (<TMP>) { last if /^\.TH/ }
         print OUTPUT while <TMP>;
@@ -101,8 +102,12 @@ for (sort keys %translators) {
             print "ok $n\n";
             unlink "out.$translators{$_}";
         } else {
+            my @master = split m/[\r\n]+/, $master;
+            my @output = split m/[\r\n]+/, $output;
             print "not ok $n\n";
             print "# Non-matching output left in out.$translators{$_}\n";
+            "@master" eq "@output" and
+		print "# But the line-end stripped versions are equal\n";
         }
     }
     $n++;