diff --git a/lib/Perldoc/Convert/html.pm b/lib/Perldoc/Convert/html.pm index db69bb0..8853c81 100755 --- 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/>/>/sg; #$text =~ s/</','',$text,$linkpath); + + my $rendered; + if ($text =~ /<|>/) { + $rendered = '' . $text .''; + } else { + decode_entities($text); + $rendered = Perldoc::Syntax::highlight('','',$text,$linkpath); + } + #my $rendered = Perldoc::Syntax::highlight('','',$text,$linkpath); + + + return $rendered; } diff --git a/std.err b/std.err index 4296c80..e69de29 100644 --- a/std.err +++ b/std.err @@ -1 +0,0 @@ -## Please see file SCALAR diff --git a/syntax.cache b/syntax.cache index 40f2109..aee6cbb 100644 Binary files a/syntax.cache and b/syntax.cache differ