git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9e49746
)
source: exclude subpage parts from href links
author
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 27 Dec 2023 18:26:32 +0000
(19:26 +0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Thu, 28 Dec 2023 07:19:58 +0000
(08:19 +0100)
source.plp
patch
|
blob
|
history
diff --git
a/source.plp
b/source.plp
index 142b67f5131a482e9ae4ae04cb7af4d8f0225a3d..863ef35348dfb522bc7374318256ab2197ae4248 100644
(file)
--- 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{ ^(['"]?) \K ($incname) (?=\1$) }{ showlink($2, "/source/$2") }xe
if !$type || $type eq 'Constant';
# link relative page locations in html output
- $line =~ s{ ^(")\K (
(?:/\w+)+) (?=
\1$) }{ showlink($2, "/source$2.plp") }xe
+ $line =~ s{ ^(")\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
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