From: Philip Newton <pne@cpan.org>
Date: Sat, 18 May 2002 09:54:13 +0000 (+0200)
Subject: Re: Change 16621: 1. Not hardcoding \x0A and \x0D seems to help
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=312e3b23b521ea66246e37b3105e696235eb0456;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);