From 2d49468a2533c4623d4121ee0e12260bcba78905 Mon Sep 17 00:00:00 2001 From: Evgeni Golov Date: Wed, 26 Feb 2014 08:38:46 +0100 Subject: subst.in: remove the led() function It was only used to replace the 'use lib utils.pm' with the proper libexec dir, which is now solved by using Perl's FinBin. Closes #1241 --- plugins-scripts/subst.in | 17 ----------------- 1 file changed, 17 deletions(-) diff --git a/plugins-scripts/subst.in b/plugins-scripts/subst.in index a70ad884..66777d75 100644 --- a/plugins-scripts/subst.in +++ b/plugins-scripts/subst.in @@ -19,19 +19,6 @@ function which(c,path) { return c; } -# used to replace "use lib utils.pm" with "use lib @libexecdir" -# -function led() { - led1 = "@libexecdir@"; - led2 = "@exec_prefix@"; - led3 = "@prefix@"; - if ( match(led1, /^\$\{exec_prefix\}/ ) != 0 ) { - return "\"" led3 "/libexec\" " ; - - } - return "\"" led1 "\"" ; -} - BEGIN { split(ENVIRON["PATH"] ":/sbin:/usr/sbin",path,/:/); @@ -58,10 +45,6 @@ BEGIN { sub(c,which(c,path)); } -# add to libexecdir to INC for perl utils.pm -/^use/ { if (/lib/) { if (/utils.pm|"."/ ) {sub(/utils.pm|"."/,led() )} } } - - # Trusted path mechanism (deprecated) /^[ \t]*\$ENV[ \t]*\{[ \t'"]*PATH[ \t"']*\}[ \t]*=/ { -- cgit v1.2.3-74-g34f1