Fixes URLs, thanks to @randyl, refs #2924

Raku · Jul 30, 2019 · 86559aa · 86559aa
1 parent c26adf4
commit 86559aa
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/util/issue-with-all-pod6.p6 b/util/issue-with-all-pod6.p6
@@ -7,8 +7,12 @@ my @docs = qx/git ls-files | grep "\.pod6"/.lines;
 for @docs -> $d {
     my $repo-path =  S[doc] = '/perl6/doc/blob/master/doc' with $d;
     my $web-path =  S[doc] = 'https://docs.perl6.org' with $d;
+    if $web-path ~~ /Type/ {
+        my @fragments = $web-path.split("/Type/");
+        $web-path = @fragments[0] ~ "/type/" ~ @fragments[1].trans( ['/'] => ['::'] );
+    }
     my $doc-name = $d.split("/")[*-1].split(".")[0];
-    $web-path .= trans( [ "Language", "Type", "Programs", ".pod6" ] =>
-                        [ "language", "type", "programs", ''] );
+    $web-path .= trans( [ "Language",  "Programs", ".pod6" ] =>
+                        [ "language",  "programs", ''] );
     say "* [ ] $doc-name [file]($repo-path), [generated]($web-path)";
 }