diff options
Diffstat (limited to 'plugins-scripts/subst.in')
-rw-r--r-- | plugins-scripts/subst.in | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/plugins-scripts/subst.in b/plugins-scripts/subst.in index 80b93d9d..a70ad884 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 | } |