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));
{
push (@files, $ENV{'HOME'} . '/.licomrc');
}
+ elsif (defined ($ENV{'SCRIPT_FILENAME'}))
+ {
+ push (@files, dirname ($ENV{'SCRIPT_FILENAME'}) . '/licom.conf');
+ }
for (@files)
{