From: Jeff Pinyan <japhy@pobox.com>
Date: Wed, 9 May 2001 14:36:25 +0000 (-0400)
Subject: Pod::Html -- fixes extra gaps in raw text
X-Git-Tag: accepted/trunk/20130322.191538~31995
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4135c0a0e71788fb84c0608a84dab7d6d320b6e8;p=platform%2Fupstream%2Fperl.git

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