sub apiquery ($) {
my ($subpath) = @_;
local $/=undef;
- my $cmd = "$dgitlive/dgit -d$distro \$DGIT_TEST_OPTS";
+ my $dgit = "$dgitlive/dgit";
+ $dgit = "dgit" if !stat_exists $dgit;
+ my $cmd = "$dgit -d$distro \$DGIT_TEST_OPTS";
$cmd .= " -".("D" x $debuglevel) if $debuglevel;
$cmd .= " archive-api-query $subpath";
printdebug "apiquery $cmd\n";
poldb_setup(poldb_path($repos));
$stderr = '';
- eval ($ENV{'DGIT_DRS_RPD_TEST_DBLOOP_HOOK'}//'');
+ eval ($ENV{'DGIT_RPD_TEST_DBLOOP_HOOK'}//'');
die $@ if length $@;
# used by tests/tests/debpolicy-dbretry