Commit 768a3eca authored by Richard Levitte's avatar Richard Levitte
Browse files

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: default avatarRich Salz <rsalz@openssl.org>
parent fc6076ca

test/testlib/OpenSSL/Test.pm

+6 −1
Original line number Diff line number Diff line
@@ -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{$_};

    }