diff options
| author | Jari Aalto <jari.aalto@poboxes.com> | 2007-03-04 18:05:38 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-14 15:40:54 +0000 |
| commit | 8e3df7c8b2759d638ad5d2c93ee07c622dd1b193 (patch) | |
| tree | 41734f872eceb21b8dc2d6d4d6b845eee0bf6d32 /lib | |
| parent | 878c69eb3fd16dd822bc39dffcd2befc98b5a1e2 (diff) | |
| download | perl-8e3df7c8b2759d638ad5d2c93ee07c622dd1b193.tar.gz | |
[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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/Html.pm | 6 | ||||
| -rw-r--r-- | lib/Pod/t/htmlescp.t | 2 | ||||
| -rw-r--r-- | lib/Pod/t/htmlview.t | 2 |
3 files changed, 5 insertions, 5 deletions
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 < & > characters in my POD instead of escaping them as < and >.</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 <html> 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> |