From 6870b634422f3af487e759ca82c7e5b625166ea7 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 10 Mar 2024 19:43:03 +0100
Subject: [PATCH] source: exclude digraph strings from page links

Prevent quoted /a .. /z in digraphs-xorg.inc.pl from being linked to
non-existent one-letter pages.
---
 source.plp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source.plp b/source.plp
index cf22e34..81b3408 100644
--- a/source.plp
+++ b/source.plp
@@ -29,7 +29,7 @@ if ($source =~ s{(?<=\Q.inc.pl\E)/jsonp?$}{} and -r $source) {
 
 Html({
 	title => "$source source code",
-	version => '1.3',
+	version => '1.4',
 	description => !$source ? 'Index of source files for this site.' : [
 		"Source code of the $source file at this site,",
 		"with syntax highlighted and references linked."
@@ -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+) (?= (?:/\w+)* \1$) }{ showlink($2, "/source$2.plp") }xe
+			$line =~ s{ ^(&quot;)\K (/\w{2,}) (?= (?:/\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
-- 
2.30.2