diff options
| author | Philip Newton <pne@cpan.org> | 2002-05-18 11:54:13 +0200 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-05-18 14:47:07 +0000 |
| commit | 312e3b23b521ea66246e37b3105e696235eb0456 (patch) | |
| tree | 85b23f7cb7ba95d9e61e6fc4b74ef5be90ac6131 /lib/Pod | |
| parent | 677a847bada901c7d66beb206bf11e79088bd193 (diff) | |
| download | perl-312e3b23b521ea66246e37b3105e696235eb0456.tar.gz | |
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
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/t/eol.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Pod/t/eol.t b/lib/Pod/t/eol.t index b78ec63549..987c150575 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); |