index 7e38e027e5c36e41a1055d2aeee7a88164eacb4e..8986868439a095e2034e85e997c5e04bc1e8129c 100644 (file)
--- a/plugins-scripts/subst.in
+++ b/plugins-scripts/subst.in
/^#! ?\/.*\/sh/ {sub(/^#! ?\/.*\/sh/,"#! @SHELL@");}
# add to libexecdir to INC for perl utils.pm
-/^use/ { if (/lib/) { if (/utils.pm/ ) {sub(/utils.pm/,led() )} } }
+/^use/ { if (/lib/) { if (/utils.pm|"."/ ) {sub(/utils.pm|"."/,led() )} } }
# Trusted path mechanism (deprecated)
sub(/\=.*$/,"='@with_trusted_path@' # autoconf-derived");
}
-# Specific programs
-
+# If a script contains a reference to a fully qualified command,
+# subst will replace the fully qualified command with whatever is
+# returned from the which subroutine
#
/^[^#]/ && /(\/.*)?\/(bin|sbin|lib|libexec)\// {
match($0,/(\/.*)?\/(bin|sbin|lib|libexec)\/[-_a-zA-Z0-9]+/);
- start=RSTART+RLENGTH;
c=substr($0,RSTART,RLENGTH);
sub(c,which(c,path));
}