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 ba54fd5b9b366d6acb5b94bab0c0e3f973985cb7..6a7d9a6356157730898b9c9c1c67805ffa0e09fa 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 2113db7462c66712590f5660223d02c4c2364e76..db2f98402bf14b11fbbeb3df6e535d4fbb8d47ca 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.