[gentoo-commits] proj/bouncer:master commit in: perl/

[Robin H. Johnson]

commit:     7a7859fdf12e8c71fb60ae500ecc025cc40bf979
Author:     Robin H. Johnson <robbat2 <AT> gentoo <DOT> org>
AuthorDate: Mon Dec 10 05:15:13 2018 +0000
Commit:     Robin H. Johnson <robbat2 <AT> gentoo <DOT> org>
CommitDate: Mon Dec 10 05:15:13 2018 +0000
URL:        https://gitweb.gentoo.org/proj/bouncer.git/commit/?id=7a7859fd

perl: find db.conf when run from another path

Signed-off-by: Robin H. Johnson <robbat2 <AT> gentoo.org>

 perl/sentry.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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};