generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use File::Path::rmtree rather than File::Path::remove_tree

Browse Source 
Just like File::Path::make_path, File::Path::remove_tree didn't show
up before File::Path 2.06 / perl v5.10.1, so we prefer the legacy
function here as well.

Reviewed-by: Andy Polyakov <appro@openssl.org>
This commit is contained in:
Richard Levitte
2016-02-08 16:44:48 +01:00
parent dca99383c2
commit 4500a4cd4d
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
test/testlib/OpenSSL/Test.pm
View File

@@ -46,7 +46,7 @@ use File::Copy;
use File::Spec::Functions qw/file_name_is_absolute curdir canonpath splitdir
catdir catfile splitpath catpath devnull abs2rel
rel2abs/;
use File::Path 2.00 qw/remove_tree mkpath/;
use File::Path 2.00 qw/rmtree mkpath/;
# The name of the test. This is set by setup() and is used in the other
@@ -189,7 +189,7 @@ sub indir {
__cwd($reverse);
if ($opts{cleanup}) {
remove_tree($subdir, { safe => 0 });
rmtree($subdir, { safe => 0 });
}
}
@@ -674,7 +674,7 @@ sub __cwd {
return undef unless chdir($dir);
if ($opts{cleanup}) {
remove_tree(".", { safe => 0, keep_root => 1 });
rmtree(".", { safe => 0, keep_root => 1 });
}
# For each of these directory variables, figure out where they are relative