Make sure to replace forwardslash on unix systems filenames

Also make sure to check for the proper characters in htmlify.p6

Author: samcv

htmlify.p6

@@ -33,12 +33,16 @@ use Perl6::TypeGraph::Viz;
 use Pod::Convenience;
 use Pod::Htmlify;
 use OO::Monitors;
-
+# Don't include backslash in Win or forwardslash on Unix because they are used
+# as directory seperators. These are handled in lib/Pod/Htmlify.pm6
+my \badchars-ntfs = Qw[ / ? < > : * | " ];
+my \badchars-unix = Qw[ ];
+my \badchars = $*DISTRO.is-win ?? badchars-ntfs !! badchars-unix;
 {
     my monitor PathChecker {
         has %!seen-paths;
         method check($path) {
-            note "$path got badchar" if $path.contains(any(qw[\ % ? & = # + " ' : ~ < >]));
+            note "$path got badchar" if $path.contains(any(badchars));
             note "$path got empty filename" if $path.split('/')[*-1] eq '.html';
             note "duplicated path $path" if %!seen-paths{$path}:exists;
             %!seen-paths{$path}++;

lib/Pod/Htmlify.pm6

@@ -14,10 +14,11 @@ sub url-munge($_) is export {
     return $_;
 }
 
-constant badchars = qw[$ / \ . % ? & = # + " ' ~ < > |]
-    ~ (':' if $*DISTRO.is-win);
+my \badchars-ntfs = Qw[ / ? < > \ : * | " ];
+my \badchars-unix = Qw[ / ];
+my \badchars = $*DISTRO.is-win ?? badchars-ntfs !! badchars-unix;
 my \goodnames = badchars.map: '$' ~ *.uniname.subst(' ', '_', :g);
-constant length = badchars.elems;
+my \length = badchars.elems;
 
 sub escape-filename($s is copy) is export {
 #    return $s if $s ~~ m{^ <[a..z]>+ '://'}; # bail on external links