X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=scripts%2Fdbconnect.pl;h=734b030c4eca611480ad09d7923829851a709848;hb=bfa674c9d4edc551afa6e27aac6f684a7b8cb656;hp=6eed2a0cf6e40ae25c41d311d7abf39e7eb878a6;hpb=cdea8d0ed20c6585e06a9507a2aaf17dc1e41247;p=kivitendo-erp.git

diff --git a/scripts/dbconnect.pl b/scripts/dbconnect.pl
index 6eed2a0cf..734b030c4 100755
--- a/scripts/dbconnect.pl
+++ b/scripts/dbconnect.pl
@@ -1,12 +1,10 @@
 #!/usr/bin/perl
 
 BEGIN {
-  use SL::System::Process;
-  my $exe_dir = SL::System::Process::exe_dir;
+  use FindBin;
 
-  unshift @INC, "${exe_dir}/modules/override"; # Use our own versions of various modules (e.g. YAML).
-  push    @INC, "${exe_dir}/modules/fallback"; # Only use our own versions of modules if there's no system version.
-  unshift @INC, $exe_dir;
+  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.
 }
 
 use strict;