]>
Commit | Line | Data |
---|---|---|
0b79d97e ER |
1 | do the utils.pm substitution AFTER path based substitution |
2 | otherwise if 'nagios' is in $PATH somewhy, then wrong perl library path is | |
3 | substituted to perl programs | |
4 | ||
5 | glen, 2004-12-08 | |
6 | ||
7 | --- ./plugins-scripts/subst.in~ 2003-07-02 18:01:22.000000000 +0300 | |
8 | +++ ./plugins-scripts/subst.in 2005-04-02 00:11:24.000000000 +0300 | |
9 | @@ -44,10 +44,6 @@ | |
ecc9f229 ER |
10 | /^#! ?\/.*\/[a-z]{0,2}awk/ {sub(/^#! ?\/.*\/[a-z]{0,2}awk/,"#! @AWK@");} |
11 | /^#! ?\/.*\/sh/ {sub(/^#! ?\/.*\/sh/,"#! @SHELL@");} | |
12 | ||
13 | -# add to libexecdir to INC for perl utils.pm | |
0b79d97e ER |
14 | -/^use/ { if (/lib/) { if (/utils.pm|"."/ ) {sub(/utils.pm|"."/,led() )} } } |
15 | - | |
ecc9f229 | 16 | - |
ecc9f229 ER |
17 | # Trusted path mechanism (deprecated) |
18 | ||
0b79d97e ER |
19 | /^[ \t]*\$ENV[ \t]*\{[ \t'"]*PATH[ \t"']*\}[ \t]*=/ { |
20 | @@ -68,6 +64,9 @@ | |
ecc9f229 ER |
21 | sub(c,which(c,path)); |
22 | } | |
23 | ||
24 | +# add to libexecdir to INC for perl utils.pm | |
0b79d97e | 25 | +/^use/ { if (/lib/) { if (/utils.pm|"."/ ) {sub(/utils.pm|"."/,led() )} } } |
ecc9f229 ER |
26 | + |
27 | { | |
28 | print; | |
29 | } |