From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 27 Dec 2023 18:26:32 +0000 (+0100)
Subject: source: exclude subpage parts from href links
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/f70fa87182a51b1fdaa8b1592f54dc2c83343f70

source: exclude subpage parts from href links
---

diff --git a/source.plp b/source.plp
index 142b67f..863ef35 100644
--- a/source.plp
+++ b/source.plp
@@ -123,7 +123,7 @@ else {
 			$line =~ s{ ^(['"]?) \K ($incname) (?=\1$) }{ showlink($2, "/source/$2") }xe
 				if !$type || $type eq 'Constant';
 			# link relative page locations in html output
-			$line =~ s{ ^(&quot;)\K ((?:/\w+)+) (?=\1$) }{ showlink($2, "/source$2.plp") }xe
+			$line =~ s{ ^(&quot;)\K (/\w+) (?= (?:/\w+)* \1$) }{ showlink($2, "/source$2.plp") }xe
 				if $type && $type eq 'Constant';
 			# link perl module names (Xx::Xx...)
 			$line =~ s{ ^\s* \K ([A-Z]\w+(?:::\w+)+) (?![^;\s]) }{ showlink($1, "/source/$1") }xe