remove '.' from @inc

This is the same as in quattor/CCM#181
quattor · Jan 24, 2018 · 212995e · 212995e
1 parent f77f984
commit 212995e
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/main/scripts/ncm-query b/src/main/scripts/ncm-query
@@ -133,7 +133,11 @@ toolsuite.
 
 package query;
 
-use lib "/usr/lib/perl";
+BEGIN {
+  pop @INC if $INC[-1] eq '.';
+  use lib "/usr/lib/perl";
+}
+
 use CAF::Application;
 use CAF::Reporter;
 use LC::Exception qw (SUCCESS throw_error);