diff --git a/F1DataBot.pm b/F1DataBot.pm index 63fdc00..8d5c4d6 100644 --- a/F1DataBot.pm +++ b/F1DataBot.pm @@ -9,6 +9,7 @@ no warnings qw(experimental); # core packages use Encode; +use FindBin; # CPAN packages use JSON; @@ -19,7 +20,7 @@ use YAML; package F1DataBot; # Constants and initalisations -Log::Log4perl->init('log.conf'); +Log::Log4perl->init("$FindBin::Bin/log.conf"); sub new { my ( $Type, %Param ) = @_; @@ -38,7 +39,7 @@ sub new { }; # load remembered update ids - $Self->{MessageIDs} = YAML::LoadFile('message_ids.yml'); + $Self->{MessageIDs} = YAML::LoadFile("$FindBin::Bin/message_ids.yml"); return $Self; }