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 (from parent 1:
d1bf245
)
source: link quoted page locations (href and showlink)
author
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 18 Dec 2023 16:55:44 +0000
(17:55 +0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 20 Dec 2023 00:27:29 +0000
(
01:27
+0100)
source.plp
patch
|
blob
|
history
diff --git
a/source.plp
b/source.plp
index e07087d6115ac38bf19089f669d926a0631aef9d..142b67f5131a482e9ae4ae04cb7af4d8f0225a3d 100644
(file)
--- 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 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{ ^(")\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;
# link perl module names (Xx::Xx...)
$line =~ s{ ^\s* \K ([A-Z]\w+(?:::\w+)+) (?![^;\s]) }{ showlink($1, "/source/$1") }xe
if !$type;