From: Jan Dubois <jand@activestate.com>
Date: Mon, 10 Apr 2006 15:32:23 +0000 (-0700)
Subject: Pod::Html::depod() doesn't work correctly for multi-line strings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d0ff30b502d98db8874b0cf66ae2f0a8a0f5e4f1;p=p5sagit%2Fp5-mst-13.2.git

Pod::Html::depod() doesn't work correctly for multi-line strings
From: "Jan Dubois" <jand@ActiveState.com>
Message-ID: <017b01c65cee$a2f5fe00$6062a8c0@candy>

p4raw-id: //depot/perl@27832
---

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 48bd7f6..5dd4f3c 100644
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -2040,7 +2040,7 @@ sub depod1($;$$){
   return $res unless defined $$rstr;
   if( ! defined( $func ) ){
       # skip to next begin of an interior sequence
-      while( $$rstr =~ s/\A(.*?)([BCEFILSXZ])<(<+[^\S\n]+)?// ){
+      while( $$rstr =~ s/\A(.*?)([BCEFILSXZ])<(<+[^\S\n]+)?//s ){
          # recurse into its text
 	  $res .= $1 . depod1( $rstr, $2, closing $3);
       }
@@ -2059,7 +2059,7 @@ sub depod1($;$$){
       # all others: either recurse into new function or
       # terminate at closing angle bracket
       my $term = pattern $closing;
-      while( $$rstr =~ s/\A(.*?)(([BCEFILSXZ])<(<+[^\S\n]+)?|$term)// ){
+      while( $$rstr =~ s/\A(.*?)(([BCEFILSXZ])<(<+[^\S\n]+)?|$term)//s ){
 	  $res .= $1;
 	  last unless $3;
           $res .= depod1( $rstr, $3, closing $4 );