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 (file)
--- 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 (file)
--- 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.