mdlinkcheck: handle links with a leading slash properly

Ref: #18372
Closes #18382

diff --git a/scripts/mdlinkcheck b/scripts/mdlinkcheck
index f5b123a24a951bd11532772970098ee36e3f8a2d..925edc52944a1a53138b0dd7906e8140ff260224 100755 (executable)
--- a/scripts/mdlinkcheck
+++ b/scripts/mdlinkcheck
@@ -99,8 +99,14 @@ sub storelink {
     my $dir = $f;
     $dir =~ s:([^/]*\z)::;
 
-    while($link =~ s:^\.\.\/::) {
-        $dir =~ s:([^/]*)\/\z::;
+    if($link =~ s/(^\/)//) {
+        # link starts with a slash, now removed
+        $dir = "";
+    }
+    else {
+        while($link =~ s:^\.\.\/::) {
+            $dir =~ s:([^/]*)\/\z::;
+        }
     }
 
     $flink{"./$dir$link"} .= "$f:$line ";