diff options
author | Karen Etheridge <ether@cpan.org> | 2019-04-18 11:29:31 -0700 |
---|---|---|
committer | Karen Etheridge <ether@cpan.org> | 2019-04-18 11:30:35 -0700 |
commit | 43049430d17d12953e6f6972b181eac4a7b3de9d (patch) | |
tree | 42911ee3b015547aa89901d50a40112ac8c3fb9d /cpan/Module-Metadata/t/lib/GeneratePackage.pm | |
parent | b8393ac7866a15370e1ce04d36a01057bcb43ea0 (diff) | |
download | perl-43049430d17d12953e6f6972b181eac4a7b3de9d.tar.gz |
upgrade Module-Metadata to 1.000036
1.000036 2019-04-18 18:25:15Z
- properly clean up temp dirs after testing
Diffstat (limited to 'cpan/Module-Metadata/t/lib/GeneratePackage.pm')
-rw-r--r-- | cpan/Module-Metadata/t/lib/GeneratePackage.pm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/cpan/Module-Metadata/t/lib/GeneratePackage.pm b/cpan/Module-Metadata/t/lib/GeneratePackage.pm index dd48aab5fd..2a910f89bf 100644 --- a/cpan/Module-Metadata/t/lib/GeneratePackage.pm +++ b/cpan/Module-Metadata/t/lib/GeneratePackage.pm @@ -17,18 +17,21 @@ BEGIN { sub _original_cwd { return $cwd } } +my @tmpdirs; sub tmpdir { my (@args) = @_; - File::Temp::tempdir( + my $tmpdir = File::Temp::tempdir( 'MMD-XXXXXXXX', CLEANUP => 0, DIR => ($ENV{PERL_CORE} ? _original_cwd : File::Spec->tmpdir), @args, ); + Test::More::note "using temp dir $tmpdir"; + push @tmpdirs, $tmpdir; + return $tmpdir; } my $tmp; -BEGIN { $tmp = tmpdir; Test::More::note "using temp dir $tmp"; } sub generate_file { my ($dir, $rel_filename, $content) = @_; @@ -48,9 +51,11 @@ sub generate_file { END { die "tests failed; leaving temp dir $tmp behind" if $ENV{AUTHOR_TESTING} and not Test::Builder->new->is_passing; - Test::More::note "removing temp dir $tmp"; chdir _original_cwd; - File::Path::rmtree($tmp); + foreach my $tmp (@tmpdirs) { + Test::More::note "removing temp dir $tmp"; + File::Path::rmtree($tmp); + } } 1; |