Integrate macperl patch #16868.

[p5sagit/p5-mst-13.2.git] / lib / Pod / Html.pm

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 515ca4e..e8f9ff3 100644 (file)
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -372,14 +372,14 @@ sub pod2html {
 
     # be eol agnostic
     for (@poddata) {
-       if (/\x0D/) {
-           if (/\x0D\x0A/) {
-               @poddata = map { s/\x0D\x0A/\n/g;
+       if (/\r/) {
+           if (/\r\n/) {
+               @poddata = map { s/\r\n/\n/g;
                                 /\n\n/ ?
                                     map { "$_\n\n" } split /\n\n/ :
                                     $_ } @poddata;
            } else {
-               @poddata = map { s/\x0D/\n/g;
+               @poddata = map { s/\r/\n/g;
                                 /\n\n/ ?
                                     map { "$_\n\n" } split /\n\n/ :
                                     $_ } @poddata;