summaryrefslogtreecommitdiffstats
path: root/plugins-scripts
diff options
context:
space:
mode:
Diffstat (limited to 'plugins-scripts')
-rw-r--r--plugins-scripts/subst.in21
1 files changed, 11 insertions, 10 deletions
diff --git a/plugins-scripts/subst.in b/plugins-scripts/subst.in
index 80b93d9..a70ad88 100644
--- a/plugins-scripts/subst.in
+++ b/plugins-scripts/subst.in
@@ -47,6 +47,17 @@ BEGIN {
47/^#! ?\/.*\/[a-z]{0,2}awk/ {sub(/^#! ?\/.*\/[a-z]{0,2}awk/,"#! @AWK@");} 47/^#! ?\/.*\/[a-z]{0,2}awk/ {sub(/^#! ?\/.*\/[a-z]{0,2}awk/,"#! @AWK@");}
48/^#! ?\/.*\/sh/ {sub(/^#! ?\/.*\/sh/,"#! @SHELL@");} 48/^#! ?\/.*\/sh/ {sub(/^#! ?\/.*\/sh/,"#! @SHELL@");}
49 49
50# If a script contains a reference to a fully qualified command,
51# subst will replace the fully qualified command with whatever is
52# returned from the which subroutine. run before changes to INC to add libexecdir
53# FIXME: Prepend executables with a substitution keyword instead.
54#
55/^[^#]/ && /(\/.*)?\/(bin|sbin|lib|libexec)\// {
56 match($0,/(\/.*)?\/(bin|sbin|lib|libexec)\/[-_a-zA-Z0-9]+/);
57 c=substr($0,RSTART,RLENGTH);
58 sub(c,which(c,path));
59}
60
50# add to libexecdir to INC for perl utils.pm 61# add to libexecdir to INC for perl utils.pm
51/^use/ { if (/lib/) { if (/utils.pm|"."/ ) {sub(/utils.pm|"."/,led() )} } } 62/^use/ { if (/lib/) { if (/utils.pm|"."/ ) {sub(/utils.pm|"."/,led() )} } }
52 63
@@ -61,16 +72,6 @@ BEGIN {
61 sub(/\=.*$/,"='@with_trusted_path@' # autoconf-derived"); 72 sub(/\=.*$/,"='@with_trusted_path@' # autoconf-derived");
62} 73}
63 74
64# If a script contains a reference to a fully qualified command,
65# subst will replace the fully qualified command with whatever is
66# returned from the which subroutine
67#
68/^[^#]/ && /(\/.*)?\/(bin|sbin|lib|libexec)\// {
69 match($0,/(\/.*)?\/(bin|sbin|lib|libexec)\/[-_a-zA-Z0-9]+/);
70 c=substr($0,RSTART,RLENGTH);
71 sub(c,which(c,path));
72}
73
74{ 75{
75 print; 76 print;
76} 77}