From: Jari Aalto <jari.aalto@poboxes.com>
Date: Mon, 5 Mar 2007 02:05:38 +0000 (-0800)
Subject: [perl #41701] [PATCH] v5.8.8. pod2html -- F<filename> should add 'class="file"' in... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8e3df7c8b2759d638ad5d2c93ee07c622dd1b193;p=p5sagit%2Fp5-mst-13.2.git

[perl #41701] [PATCH] v5.8.8. pod2html -- F<filename> should add 'class="file"' in the HTML output
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
--- 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
--- 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
--- 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>