From: Jan Dubois <jand@activestate.com>
Date: Sun, 16 Apr 2006 00:57:00 +0000 (-0700)
Subject: testcase for change #27832
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=066b3271193c56784e72a2b9266b6b8e611ec0e6;p=p5sagit%2Fp5-mst-13.2.git

testcase for change #27832
From: "Jan Dubois" <jand@ActiveState.com>
Message-ID: <022a01c6612b$575cb7e0$2217a8c0@candy>

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

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index ba54fd5..6a7d9a6 100644
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -1501,6 +1501,7 @@ sub process_text {
     return if $Ignore;
     my( $tref ) = @_;
     my $res = process_text1( 0, $tref );
+    $res =~ s/\s+$//s;
     $$tref = $res;
 }
 
diff --git a/lib/Pod/t/htmllink.pod b/lib/Pod/t/htmllink.pod
index 2113db7..db2f984 100644
--- a/lib/Pod/t/htmllink.pod
+++ b/lib/Pod/t/htmllink.pod
@@ -92,15 +92,17 @@ This is section three.
 
 =over 4
 
-=item item1
+=item item1 X<item> X<one>
 
 This is item one.
 
 =item item 2
+X<item> X<two>
 
 This is item two.
 
-=item item three
+=item item three X<item>
+X<three>
 
 This is item three.