diff options
| author | Jeff Pinyan <japhy@pobox.com> | 2001-05-09 10:36:25 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-09 23:02:56 +0000 |
| commit | 4135c0a0e71788fb84c0608a84dab7d6d320b6e8 (patch) | |
| tree | dc7770c9612a6cd11183b09bd69e1e0613b34c5a /lib | |
| parent | 402f29189b4eee898b16e4c1b53d75df6e37ab97 (diff) | |
| download | perl-4135c0a0e71788fb84c0608a84dab7d6d320b6e8.tar.gz | |
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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/Html.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index 7a85f5cfc5..c5e085b1bf 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 ); } |