disable codes_in_verbatim for Pod::Html

...otherwise all our verbatim blocks will change radically!

diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm
index 9838ea4..08d0274 100644 (file)
--- a/ext/Pod-Html/lib/Pod/Html.pm
+++ b/ext/Pod-Html/lib/Pod/Html.pm
@@ -343,6 +343,7 @@ sub pod2html {
 
     # set options for the parser
     my $parser = Pod::Simple::XHTML::LocalPodLinks->new();
+    $parser->codes_in_verbatim(0);
     $parser->anchor_items(1); # the old Pod::Html always did
     $parser->backlink($Backlink); # linkify =head1 directives
     $parser->htmldir($Htmldir);

diff --git a/ext/Pod-Html/t/htmldir1.pod b/ext/Pod-Html/t/htmldir1.pod
index e505caa..84fe565 100644 (file)
--- a/ext/Pod-Html/t/htmldir1.pod
+++ b/ext/Pod-Html/t/htmldir1.pod
@@ -4,6 +4,8 @@ htmldir - Test --htmldir feature
 
 =head1 LINKS
 
+  Verbatim B<means> verbatim.
+
 Normal text, a L<link> to nowhere, 
 
 a link to L<var-copy>, 

diff --git a/ext/Pod-Html/t/htmldir1.t b/ext/Pod-Html/t/htmldir1.t
index a8c367a..881e3d6 100644 (file)
--- a/ext/Pod-Html/t/htmldir1.t
+++ b/ext/Pod-Html/t/htmldir1.t
@@ -70,6 +70,8 @@ __DATA__
 
 <h1 id="LINKS">LINKS</h1>
 
+<pre><code>  Verbatim B&lt;means&gt; verbatim.</code></pre>
+
 <p>Normal text, a <a>link</a> to nowhere,</p>
 
 <p>a link to <a href="/[RELCURRENTWORKINGDIRECTORY]/testdir/test.lib/var-copy.html">var-copy</a>,</p>