OpenSSL::Test: Fix directory calculations in __cwd()

The previous fix contained a mistake, where any absolute path in
%directories would be cleared away instead of just being left alone.

Reviewed-by: Rich Salz <rsalz@openssl.org>
This commit is contained in:
Richard Levitte 2016-06-22 13:39:46 +02:00
parent fc6076ca27
commit 768a3eca39

View File

@ -854,7 +854,12 @@ sub __cwd {
rmtree(".", { safe => 0, keep_root => 1 });
}
%directories = %tmp_directories;
# We put back new values carefully. Doing the obvious
# %directories = ( %tmp_irectories )
# will clear out any value that happens to be an absolute path
foreach (keys %tmp_directories) {
$directories{$_} = $tmp_directories{$_};
}
foreach (keys %tmp_ENV) {
$ENV{$_} = $tmp_ENV{$_};
}