OpenSSL::Test: Fix directory calculations in __cwd()
[openssl.git] / test / testlib / OpenSSL / Test.pm
index 6a10afd653d7831bf66e2cb89c1468da94881617..31f41057f0deccc25116c2162b6d065b8481d34f 100644 (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{$_};
     }