X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=scripts%2Ffind-use.pl;h=b9220d423f354bd995d5b14e8006f6e22d2878d4;hb=bae74e1eec221b037431a51c571f25b0cced722c;hp=3df14f4591c0833acea67fcca9a44d75a79b9736;hpb=935b8083e67fa9b2871ae0f6a3ea5b8ca1661172;p=kivitendo-erp.git

diff --git a/scripts/find-use.pl b/scripts/find-use.pl
index 3df14f459..b9220d423 100755
--- a/scripts/find-use.pl
+++ b/scripts/find-use.pl
@@ -1,4 +1,13 @@
 #!/usr/bin/perl -l
+
+BEGIN {
+  use FindBin;
+
+  unshift(@INC, $FindBin::Bin . '/../modules/override'); # Use our own versions of various modules (e.g. YAML).
+  push   (@INC, $FindBin::Bin . '/..');                  # '.' will be removed from @INC soon.
+  push   (@INC, $FindBin::Bin . '/../modules/fallback'); # Only use our own versions of modules if there's no system version.
+}
+
 use strict;
 #use warnings; # corelist and find throw tons of warnings
 use File::Find;
@@ -55,6 +64,8 @@ GetOptions(
   'files-with-match|l' => \ my $l,
 );
 
+chmod($FindBin::Bin . '/..');
+
 find(sub {
   return unless /(\.p[lm]|console)$/;