Re: Change 16621: 1. Not hardcoding \x0A and \x0D seems to help

EBCDIC, amazing.
   Message-Id: <432ceucrfducg2iitau6uggeb02lu209a2@4ax.com>
p4raw-link: @4 on //depot/thrperl: 11343788cbaaede18e3146b5219d2fbdaeaf516e

p4raw-id: //depot/perl@16674

diff --git a/lib/Pod/t/eol.t b/lib/Pod/t/eol.t
index b78ec63..987c150 100644 (file)
--- a/lib/Pod/t/eol.t
+++ b/lib/Pod/t/eol.t
@@ -37,7 +37,7 @@ use Pod::Html;
 open(POD, "<$$.pod") or die "$$.pod: $!";
 open(IN,  ">$$.in")  or die "$$.in: $!";
 while (<POD>) {
-  s/[\r\n]+/\r/gs;
+  s/[\r\n]+/\r/g;
   print IN $_;
 }
 close(POD);
@@ -50,7 +50,7 @@ pod2html("--title=eol", "--infile=$$.in", "--outfile=$$.o1");
 open(POD, "<$$.pod") or die "$$.pod: $!";
 open(IN,  ">$$.in")  or die "$$.in: $!";
 while (<POD>) {
-  s/[\r\n]+/\n/gs;
+  s/[\r\n]+/\n/g;
   print IN $_;
 }
 close(POD);
@@ -63,7 +63,7 @@ pod2html("--title=eol", "--infile=$$.in", "--outfile=$$.o2");
 open(POD, "<$$.pod") or die "$$.pod: $!";
 open(IN,  ">$$.in")  or die "$$.in: $!";
 while (<POD>) {
-  s/[\r\n]+/\r\n/gs;
+  s/[\r\n]+/\r\n/g;
   print IN $_;
 }
 close(POD);