Fixing error Raku/doc#2562 #34. WIP

perl6 · Jan 13, 2019 · a509c00 · a509c00
1 parent d05cb3d
commit a509c00
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 5 deletions.
diff --git a/lib/Pod/To/BigPage.pm6 b/lib/Pod/To/BigPage.pm6
@@ -540,19 +540,24 @@ multi sub handle (Nil, :$pod-name?, :$part-number?, :$toc-counter?) is export {
     die 'Nil';
 }
 
-#| Rewrites a link
+#| Rewrites a link if needed
 sub rewrite-link($link-target is copy, :$part-number!){
+    $link-target = $link-target[0] if $link-target ~~ Array; # Hack for when links arrive as an array
+    say "$link-target starts-with → ", $link-target.starts-with(any('a'..'z'));
     given $link-target {
-        when .starts-with( any(<http:// https:// irc://>) ) { succeed }
+        when .starts-with( <http:// https:// irc://>)  { succeed }
         when .starts-with('#')           { $link-target = '#' ~ $part-number ~ '-' ~ $link-target.substr(1) }
-        when .starts-with(any('a'..'z')) { $link-target = "/routine/$link-target"; proceed }
-        when .starts-with(any('A'..'Z')) { $link-target = "/type/$link-target"; proceed }
+        when so .starts-with(any('a'..'z')) { $link-target = "/routine/$link-target"; proceed }
+        when so .starts-with(any('A'..'Z')) { $link-target = "/type/$link-target"; proceed }
         when .starts-with('/')           {
             my @parts = $link-target.split('#');
+            say @parts;
             @parts[0] = '#' ~ @parts[0].subst('/', '_', :g) ~ '.pod6';
             $link-target = @parts.join('-');
         }
+        default { say "$link-target failed" }
     }
+    say "Result → $link-target";
     $link-target
 }
 

diff --git a/t/render.t b/t/render.t
@@ -3,7 +3,6 @@ use v6;
 use lib <lib ../lib>;
 
 use Test;
-use Test::When <online>;
 use Pod::To::BigPage;
 
 # Test the rendering of a full page