Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fixed error rendering C<...> blocks

  • Loading branch information...
commit 39c383869faa7c5f13540592551dd376c7d11629 1 parent 6dc7049
@jonallen authored
View
17 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;
}
View
1  std.err
@@ -1 +0,0 @@
-## Please see file SCALAR
View
BIN  syntax.cache
Binary file not shown
Please sign in to comment.
Something went wrong with that request. Please try again.