From 8e3df7c8b2759d638ad5d2c93ee07c622dd1b193 Mon Sep 17 00:00:00 2001
From: Jari Aalto <jari.aalto@poboxes.com>
Date: Sun, 4 Mar 2007 18:05:38 -0800
Subject: [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
---
 lib/Pod/Html.pm      | 6 +++---
 lib/Pod/t/htmlescp.t | 2 +-
 lib/Pod/t/htmlview.t | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'lib')

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 8c999ccab5..f524eff318 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 a17a549cd2..c31d5c21c8 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 50cbc2ac79..32956419e4 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>
-- 
cgit v1.2.1