Merge branch '15' of git://github.com/ahalbert/Pod-To-HTML into ahalbert-15

jonathanstowe · jonathanstowe · commit 418db9942aa1 · 2018-08-11T11:51:35.000+01:00
diff --git a/lib/Pod/To/HTML.pm b/lib/Pod/To/HTML.pm
@@ -340,8 +340,11 @@ multi sub node2html(Pod::Block::Named $node) {
         }
         when 'para' { return node2html($node.contents[0]); }
         when 'defn' {
-            return node2html($node.contents[0]) ~ "\n"
-                    ~ node2html($node.contents[1..*-1]);
+            return "<dl>" ~
+                    "<dt>" ~ node2html($node.contents[0].contents[1]) ~ "</dt>" ~
+                    "<dd>" ~ node2html($node.contents[0].contents[2..*-1]) ~ "</dd>" ~
+                "</dl>\n" ~
+                node2html($node.contents[1..*-1]);
         }
         when 'Image' {
             my $url;

Original file line number	Diff line number	Diff line change
`@@ -340,8 +340,11 @@ multi sub node2html(Pod::Block::Named $node) {`
`340`	`340`	`}`
`341`	`341`	`when 'para' { return node2html($node.contents[0]); }`
`342`	`342`	`when 'defn' {`
`343`		`- return node2html($node.contents[0]) ~ "\n"`
`344`		`- ~ node2html($node.contents[1..*-1]);`
	`343`	`+ return "<dl>" ~`
	`344`	`+ "<dt>" ~ node2html($node.contents[0].contents[1]) ~ "</dt>" ~`
	`345`	`+ "<dd>" ~ node2html($node.contents[0].contents[2..*-1]) ~ "</dd>" ~`
	`346`	`+ "</dl>\n" ~`
	`347`	`+ node2html($node.contents[1..*-1]);`
`345`	`348`	`}`
`346`	`349`	`when 'Image' {`
`347`	`350`	`my $url;`