Skip to content

Commit e8d0f50

Browse files
committed
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
1 parent b974d2c commit e8d0f50

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

dist/PathTools/t/cwd_enoent.t

+2
Original file line numberDiff line numberDiff line change
@@ -47,4 +47,6 @@ foreach my $type (qw(regular perl)) {
4747

4848
chdir $tmp or die "$tmp: $!";
4949

50+
END { chdir $tmp; }
51+
5052
1;

0 commit comments

Comments
 (0)