diff options
| author | James E Keenan <jkeenan@cpan.org> | 2018-04-26 16:51:39 -0400 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2018-05-01 08:01:49 -0400 |
| commit | e8d0f503dda9584e121438f7f871492195d9e3a5 (patch) | |
| tree | df99c7594e3f682da0f010cfe8e844b71c1ec45f /dist/PathTools | |
| parent | b974d2c0b3ae119172675913e129ce2d772c9cfb (diff) | |
| download | perl-e8d0f503dda9584e121438f7f871492195d9e3a5.tar.gz | |
Ensure temp directories are cleaned up.
Tux reported that on certain platforms File::Temp::tempdir(CLEANUP => 1) was
not cleaning up after itself properly. Guarantee that this cleanup takes
place in and END block.
Thread:
https://www.nntp.perl.org/group/perl.perl5.porters/2018/04/msg250757.html
Diffstat (limited to 'dist/PathTools')
| -rw-r--r-- | dist/PathTools/t/cwd_enoent.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/dist/PathTools/t/cwd_enoent.t b/dist/PathTools/t/cwd_enoent.t index b9adddeab7..8f3a1fb1fb 100644 --- a/dist/PathTools/t/cwd_enoent.t +++ b/dist/PathTools/t/cwd_enoent.t @@ -47,4 +47,6 @@ foreach my $type (qw(regular perl)) { chdir $tmp or die "$tmp: $!"; +END { chdir $tmp; } + 1; |