diff options
Diffstat (limited to 'plugins-scripts')
| -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 | } |
