From 419facb25a4db9980b1ce634c36d1f1457def49c Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Wed, 18 Oct 2017 11:06:11 +0200 Subject: [PATCH] =?utf8?q?console:=20Fix=20f=C3=BCr=20Entfernen=20von=20.?= =?utf8?q?=20aus=20@INC?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- scripts/console | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/scripts/console b/scripts/console index cb08e2f03..8bbe93d69 100755 --- a/scripts/console +++ b/scripts/console @@ -5,8 +5,11 @@ use strict; use 5.008; # too much magic in here to include perl 5.6 BEGIN { - unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML). - push @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version. + use FindBin; + + unshift(@INC, $FindBin::Bin . '/../modules/override'); # Use our own versions of various modules (e.g. YAML). + push (@INC, $FindBin::Bin . '/..'); + push (@INC, $FindBin::Bin . '/../modules/fallback'); # Only use our own versions of modules if there's no system version. } use Data::Dumper; -- 2.20.1