Merge pull request #181 from ttyS4/fix-inc

remove '.' from @inc
quattor · Dec 18, 2017 · 147f020 · 147f020
2 parents f7fb4d1 + cd0ce0e
commit 147f020
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 0 deletions.
diff --git a/src/main/bin/ccm b/src/main/bin/ccm
@@ -10,6 +10,7 @@ use warnings;
 # required for CAF
 BEGIN {
     unshift(@INC, '/usr/lib/perl');
+    pop @INC if $INC[-1] eq '.';
 }
 
 # minimal Path

diff --git a/src/main/bin/ccm-fetch b/src/main/bin/ccm-fetch
@@ -12,6 +12,7 @@ use warnings;
 # required for CAF (Common Application Framework)
 BEGIN {
     unshift(@INC, '/usr/lib/perl');
+    pop @INC if $INC[-1] eq '.';
 }
 
 use CAF::Application;

diff --git a/src/main/bin/ccm-initialise b/src/main/bin/ccm-initialise
@@ -14,6 +14,7 @@ use warnings;
 
 BEGIN {
     unshift(@INC, '/usr/lib/perl');
+    pop @INC if $INC[-1] eq '.';
 }
 
 use CAF::Application;

diff --git a/src/main/bin/ccm-purge b/src/main/bin/ccm-purge
@@ -9,6 +9,7 @@ use warnings;
 
 BEGIN {
     unshift(@INC, '/usr/lib/perl');
+    pop @INC if $INC[-1] eq '.';
 }
 
 use Getopt::Long;
-Original file line number
+Diff line change
@@ Expand Up / @@ -14,6 +14,7 @@ use warnings; @@
     BEGIN {
         unshift(@INC, '/usr/lib/perl');
+        pop @INC if $INC[-1] eq '.';
     }
     use CAF::Application;
@@ Expand Down @@