Change 13982: [ PATCH] Cygwin: one down one to go

[Jarkko Hietaniemi]

Change 13982 by jhi@alpha on 2001/12/31 15:05:36

        Subject: [ PATCH] Cygwin: one down one to go
        From: "H.Merijn Brand" <[EMAIL PROTECTED]>
        Date: Mon, 31 Dec 2001 17:03:40 +0100
        Message-Id: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/lib/Pod/t/basic.t#6 edit

Differences ...

==== //depot/perl/lib/Pod/t/basic.t#6 (text) ====
Index: perl/lib/Pod/t/basic.t
--- perl/lib/Pod/t/basic.t.~1~  Mon Dec 31 08:15:05 2001
+++ perl/lib/Pod/t/basic.t      Mon Dec 31 08:15:05 2001
@@ -49,7 +49,7 @@
 
 # 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 @@
         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 @@
             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++;
End of Patch.