Fixed error rendering C<...> blocks

dams · Sep 5, 2010 · 39c3838 · 39c3838
1 parent 6dc7049
commit 39c3838
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 4 deletions.
diff --git a/lib/Perldoc/Convert/html.pm b/lib/Perldoc/Convert/html.pm
@@ -221,14 +221,25 @@ sub view_verbatim {
 
 sub view_seq_code {
   my ($self,$text) = @_;
-  
+
   #$text =~ s/&gt;/>/sg;
   #$text =~ s/&lt;/</sg;
   #$text =~ s/&amp;/&/sg;
-  decode_entities($text);
+  #decode_entities($text);
 
   my $linkpath = '../' x (0 + $document_name =~ s/::/::/g);
-  return Perldoc::Syntax::highlight('<code class="inline">','</code>',$text,$linkpath);
+
+  my $rendered;
+  if ($text =~ /<|>/) {
+    $rendered = '<code class="inline">' . $text .'</code>';
+  } else {
+    decode_entities($text);
+    $rendered = Perldoc::Syntax::highlight('<code class="inline">','</code>',$text,$linkpath);
+  }
+  #my $rendered = Perldoc::Syntax::highlight('<code class="inline">','</code>',$text,$linkpath);
+
+
+  return $rendered;
 }
 
 

diff --git a/std.err b/std.err
@@ -1 +0,0 @@
-## Please see file SCALAR

diff --git a/syntax.cache b/syntax.cache