Pod::Html -- fixes extra gaps in raw text

Message-ID: <Pine.GSO.4.21.0105091430420.357-100000@crusoe.crusoe.net>

p4raw-id: //depot/perl@10058

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 7a85f5c..c5e085b 100644 (file)
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -313,7 +313,7 @@ sub clean_data($){
        ${$dataref}[$i] =~ s/\s+\Z//;
 
         # have a look for all-space lines
-       if( ${$dataref}[$i] =~ /^\s+$/m ){
+      if( ${$dataref}[$i] =~ /^\s+$/m and $dataref->[$i] !~ /^\s/ ){
            my @chunks = split( /^\s+$/m, ${$dataref}[$i] );
            splice( @$dataref, $i, 1, @chunks );
        }