aboutsummaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
Diffstat (limited to 'perl')
-rwxr-xr-xperl/sentry.pl4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl/sentry.pl b/perl/sentry.pl
index bc4788c..3da9291 100755
--- a/perl/sentry.pl
+++ b/perl/sentry.pl
@@ -9,6 +9,7 @@ use Data::Dumper;
use LWP;
use LWP::UserAgent;
use Config::Tiny;
+use File::Basename;
$ua = LWP::UserAgent->new;
$ua->timeout(4);
@@ -17,7 +18,8 @@ $ua->agent("Gentoo Mirror Monitor/1.0");
my $DEBUG = 1;
my %products = ();
my %oss = ();
-my $Config = Config::Tiny->read( 'db.conf' );
+my $dirname = dirname(__FILE__);
+my $Config = Config::Tiny->read( $dirname . '/db.conf' );
# Some db credentials
my $host = $Config->{database}->{host};