make L<IO::Spec> work with filename-rewrite

Author: gfldex

htmlify.p6

@@ -192,7 +192,7 @@ sub MAIN(
     if $sparse || !$search-file || !$disambiguation {
         say "This is a sparse or incomplete run. DO NOT SYNC WITH doc.perl6.org!";
     }
-    
+
     spurt('html/links.txt', @__URLS.sort.unique.join("\n"));
 }
 

lib/Pod/Htmlify.pm6

@@ -42,12 +42,12 @@ sub rewrite-url($s) is export {
         }
 
         when / ^ <[A..Z]> / {
-            $r =  "/type/{uri_unescape($s)}";
+            $r =  "/type/{escape-filename(uri_unescape($s))}";
             succeed;
         }
 
         when / ^ <[a..z]> | ^ <-alpha>* $ / {
-            $r = "/routine/{uri_unescape($s)}";
+            $r = "/routine/{escape-filename(uri_unescape($s))}";
             succeed;
         }