From 6ac52c4ccb2a14a2a1c22a3cd0cda7f7f02cb4c6 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 18 Dec 2023 17:55:44 +0100
Subject: [PATCH] source: link quoted page locations (href and showlink)

---
 source.plp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/source.plp b/source.plp
index e07087d..142b67f 100644
--- a/source.plp
+++ b/source.plp
@@ -122,6 +122,9 @@ else {
 			# link other page sources, stylesheets, and javascript
 			$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
+				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
 				if !$type;
-- 
2.30.0