From 4135c0a0e71788fb84c0608a84dab7d6d320b6e8 Mon Sep 17 00:00:00 2001
From: Jeff Pinyan <japhy@pobox.com>
Date: Wed, 9 May 2001 10:36:25 -0400
Subject: [PATCH] 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
---
 lib/Pod/Html.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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