From e8d0f503dda9584e121438f7f871492195d9e3a5 Mon Sep 17 00:00:00 2001
From: James E Keenan <jkeenan@cpan.org>
Date: Thu, 26 Apr 2018 16:51:39 -0400
Subject: [PATCH] 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
---
 dist/PathTools/t/cwd_enoent.t | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/dist/PathTools/t/cwd_enoent.t b/dist/PathTools/t/cwd_enoent.t
index b9addde..8f3a1fb 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;
-- 
1.8.3.1