X-Git-Url: https://git.octo.it/?p=licom.git;a=blobdiff_plain;f=lib%2FLiCoM%2FConfig.pm;fp=lib%2FLiCoM%2FConfig.pm;h=be8359fa288f6ac3ddb2d7860f952e59701b83b4;hp=295f7eb0afa9d9ceedcd4234d7726f407e44d93b;hb=c603325170ce0a8cb8a203aa7aacc74b6587366e;hpb=89c58aa0c99bc2fd168fda98891ac2962ff16c94

diff --git a/lib/LiCoM/Config.pm b/lib/LiCoM/Config.pm
index 295f7eb..be8359f 100644
--- a/lib/LiCoM/Config.pm
+++ b/lib/LiCoM/Config.pm
@@ -4,6 +4,8 @@ use strict;
 use warnings;
 use Carp (qw(cluck confess));
 
+use File::Basename (qw(dirname));
+
 use Exporter;
 
 @LiCoM::Config::EXPORT_OK = (qw(get_config set_config read_config));
@@ -72,6 +74,10 @@ sub read_config
 	{
 		push (@files, $ENV{'HOME'} . '/.licomrc');
 	}
+	elsif (defined ($ENV{'SCRIPT_FILENAME'}))
+	{
+		push (@files, dirname ($ENV{'SCRIPT_FILENAME'}) . '/licom.conf');
+	}
 
 	for (@files)
 	{