[perl #41701] [PATCH] v5.8.8. pod2html -- F<filename> should add 'class="file"' in...

From: Jari Aalto (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-2051-1173089138-1801.41701-75-0@perl.org>

plus adjustments to tests

p4raw-id: //depot/perl@30582

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 8c999cc..f524eff 100644 (file)
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -1528,11 +1528,11 @@ sub process_text1($$;$$){
        $res = "&$escape;";
 
     } elsif( $func eq 'F' ){
-       # F<filename> - italizice
-       $res = '<em>' . process_text1( $lev, $rstr ) . '</em>';
+       # F<filename> - italicize
+       $res = '<em class="file">' . process_text1( $lev, $rstr ) . '</em>';
 
     } elsif( $func eq 'I' ){
-       # I<text> - italizice
+       # I<text> - italicize
        $res = '<em>' . process_text1( $lev, $rstr ) . '</em>';
 
     } elsif( $func eq 'L' ){

diff --git a/lib/Pod/t/htmlescp.t b/lib/Pod/t/htmlescp.t
index a17a549..c31d5c2 100644 (file)
--- a/lib/Pod/t/htmlescp.t
+++ b/lib/Pod/t/htmlescp.t
@@ -45,7 +45,7 @@ __DATA__
 <h1><a name="description">DESCRIPTION</a></h1>
 <p>I am a stupid fool who puts naked &lt; &amp; &gt; characters in my POD
 instead of escaping them as &lt; and &gt;.</p>
-<p>Here is some <strong>bold</strong> text, some <em>italic</em> plus <em>/etc/fstab</em>
+<p>Here is some <strong>bold</strong> text, some <em>italic</em> plus <em class="file">/etc/fstab</em>
 file and something that looks like an &lt;html&gt; tag.
 This is some <code>$code($arg1)</code>.</p>
 

diff --git a/lib/Pod/t/htmlview.t b/lib/Pod/t/htmlview.t
index 50cbc2a..3295641 100644 (file)
--- a/lib/Pod/t/htmlview.t
+++ b/lib/Pod/t/htmlview.t
@@ -173,7 +173,7 @@ HTML
 <hr />
 <h1><a name="see_also">SEE ALSO</a></h1>
 <p>See also <a href="/t/htmlescp.html">Test Page 2</a>, the <a href="/Your/Module.html">the Your::Module manpage</a> and <a href="/Their/Module.html">the Their::Module manpage</a>
-manpages and the other interesting file <em>/usr/local/my/module/rocks</em>
+manpages and the other interesting file <em class="file">/usr/local/my/module/rocks</em>
 as well.</p>
 
 </body>