Add support for all kinds of numbers in E<>

ShimmerFairy · ShimmerFairy · commit 41db00bb8d0e · 2014-03-02T17:15:11.000-08:00
diff --git a/lib/Pod/To/HTML.pm b/lib/Pod/To/HTML.pm
@@ -410,8 +410,12 @@ multi sub node2inline(Pod::FormattingCode $node) returns Str {
         when 'E' {
             return $node.content.split(q{;}).map({
                 # Perl 6 numbers = Unicode codepoint numbers
-                when /^ \d+ $/
-                    { q{&#} ~ $_ ~ q{;} }
+                when /^ '0d'? <(\d+)> $/
+                    { q{&#} ~ $/ ~ q{;} }
+                when /^ '0x' <(<.xdigit>+)> $/
+                    { q{&#x} ~ $/ ~ q{;} }
+                when /^ '0o' <(\d+)> $/
+                    { q{&#} ~ :8(~$/) ~ q{;} }
                 # Lowercase = HTML5 entity reference
                 when /^ <[a..z]>+ $/
                     { q{&} ~ $_ ~ q{;} }
