selftest: Pass prefix to setup_env function.

diff --git a/selftest/selftest.pl b/selftest/selftest.pl
index 864892fcb63304d15aa0f3b47df89fbbac17c1dc..37360b941311c9bf8fcf3885490e40839ffaf878 100755 (executable)
--- a/selftest/selftest.pl
+++ b/selftest/selftest.pl
@@ -809,9 +809,9 @@ $SIG{INT} = $SIG{QUIT} = $SIG{TERM} = sub {
        die("Received signal $signame");
 };
 
-sub setup_env($)
+sub setup_env($$)
 {
-       my ($name) = @_;
+       my ($name, $prefix) = @_;
 
        my $testenv_vars = undef;
 
@@ -904,7 +904,7 @@ if ($opt_testenv) {
        my $testenv_name = $ENV{SELFTEST_TESTENV};
        $testenv_name = $testenv_default unless defined($testenv_name);
 
-       my $testenv_vars = setup_env($testenv_name);
+       my $testenv_vars = setup_env($testenv_name, $prefix);
 
        die("Unable to setup environment $testenv_name") unless ($testenv_vars);
 
@@ -933,7 +933,7 @@ $envvarstr
                my $name = $$_[0];
                my $envname = $$_[1];
 
-               my $envvars = setup_env($envname);
+               my $envvars = setup_env($envname, $prefix);
                if (not defined($envvars)) {
                        Subunit::start_testsuite($name);
                        Subunit::end_testsuite($name, "error",