X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/9ee8b3f2973af26040c1c03e1824f6680b5497a6..778271b750ab787c9451451e963e094e5cf9a059:/scripts/delete_unlisted_branches.pl

diff --git a/scripts/delete_unlisted_branches.pl b/scripts/delete_unlisted_branches.pl
index fd37fd2..2ded4fb 100755
--- a/scripts/delete_unlisted_branches.pl
+++ b/scripts/delete_unlisted_branches.pl
@@ -7,7 +7,9 @@ use Data::Dumper;
 
 use vars qw($dbhost $dbname $dbuser $dbpass $dbport
 );
-require "$ENV{BFConfDir}/BuildFarmWeb.pl";
+
+use FindBin qw($RealBin);
+require "$RealBin/../BuildFarmWeb.pl";
 
 die "no dbname" unless $dbname;
 die "no dbuser" unless $dbuser;
@@ -21,7 +23,7 @@ my $db = DBI->connect($dsn,$dbuser,$dbpass);
 die $DBI::errstr unless $db;
 
 my ($brhandle,@branches_of_interest);
-if (open($brhandle,"$ENV{BFConfDir}/htdocs/branches_of_interest.txt"))
+if (open($brhandle,"$RealBin/../htdocs/branches_of_interest.txt"))
 {
     @branches_of_interest = <$brhandle>;
     close($brhandle);