Permalink
Browse files

improve L<> rendering a bit, to make S26 happier

  • Loading branch information...
1 parent 284cc49 commit ac09ad554d0bcb00717c668adbc2216eff646766 @moritz moritz committed Aug 26, 2012
Showing with 1 addition and 2 deletions.
  1. +1 −2 lib/Pod/To/HTML.pm
View
@@ -398,15 +398,14 @@ multi sub node2inline(Pod::FormattingCode $node) returns Str {
#= Links
when 'L' {
- my $url = $node.content.join;
+ my $url = node2inline($node.content);
my $text = $url;
if $url ~~ /'|'/ {
$text = $/.prematch;
$url = $/.postmatch;
}
$url = url($url);
# TODO: URI-escape $url
- $text = escape_html $text;
return qq{<a href="$url">{$text}</a>}
}

0 comments on commit ac09ad5

Please sign in to comment.