Escape toc text

tisonkun · web-flow · commit f8db64ba8d6a · 2017-11-05T23:49:00.000-06:00
diff --git a/lib/Pod/To/HTML.pm b/lib/Pod/To/HTML.pm
@@ -214,7 +214,7 @@ sub do-toc($pod) returns Str {
     my proto sub find-headings($node, :$inside-heading){*}
     multi sub find-headings(Str $s is raw, :$inside-heading){ $inside-heading ?? $s.trim !! '' }
     multi sub find-headings(Pod::FormattingCode $node is raw where *.type eq 'C', :$inside-heading){
-        my $html = $node.contents.map(*.&find-headings(:$inside-heading));
+        my $html = $node.contents.map(*.&find-headings(:$inside-heading)).Str.&escape_html;
        $inside-heading ?? qq[<code class="pod-code-inline">{$html}</code>] !! ''
     }
     multi sub find-headings(Pod::Heading $node is raw, :$inside-heading){

Original file line number	Diff line number	Diff line change
`@@ -214,7 +214,7 @@ sub do-toc($pod) returns Str {`
`214`	`214`	`my proto sub find-headings($node, :$inside-heading){*}`
`215`	`215`	`multi sub find-headings(Str $s is raw, :$inside-heading){ $inside-heading ?? $s.trim !! '' }`
`216`	`216`	`multi sub find-headings(Pod::FormattingCode $node is raw where *.type eq 'C', :$inside-heading){`
`217`		`- my $html = $node.contents.map(*.&find-headings(:$inside-heading));`
	`217`	`+ my $html = $node.contents.map(*.&find-headings(:$inside-heading)).Str.&escape_html;`
`218`	`218`	`$inside-heading ?? qq[<code class="pod-code-inline">{$html}</code>] !! ''`
`219`	`219`	`}`
`220`	`220`	`multi sub find-headings(Pod::Heading $node is raw, :$inside-heading){`