1 files changed, 43 insertions, 0 deletions

diff --git a/web/attachments/146541-perl-path.patch b/web/attachments/146541-perl-path.patch
new file mode 100644
index 0000000..35e1718
--- /dev/null
+++ b/web/attachments/146541-perl-path.patch
@@ -0,0 +1,43 @@
+--- plugins-scripts/subst.in.orig       2005-08-12 15:53:26.000000000 -0700
++++ plugins-scripts/subst.in    2005-08-12 15:53:51.000000000 -0700
+@@ -1,24 +1,5 @@
+ #!/usr/bin/awk
+ 
+-function which(c,path) {
+-       cmd = "test -x " c;
+-
+-       if (system(cmd)==0) {
+-               return c;
+-       } 
+-
+-       sub(/\/.*\//,"",c);
+-  for (dir in path) {
+-                       cmd = "test -x " path[dir] "/" c;
+-                       if (system(cmd)==0) {
+-                                       return path[dir] "/" c;
+-                       } 
+-       }
+-
+-
+-       return c;
+-}
+-
+ # used to replace "use lib utils.pm" with "use lib @libexecdir"
+ #
+ function led() {
+@@ -58,15 +39,6 @@
+        sub(/\=.*$/,"='@trusted_path@' # autoconf-derived");
+ }
+ 
+-# Specific programs
+-
+-#
+-/^[^#]/ && /(\/.*)?\/(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));
+-}
+ 
+ {
+        print;