This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Ensure temp directories are cleaned up.
[perl5.git] / dist / PathTools / t / cwd_enoent.t
index b9addde..8f3a1fb 100644 (file)
@@ -47,4 +47,6 @@ foreach my $type (qw(regular perl)) {
 
 chdir $tmp or die "$tmp: $!";
 
+END { chdir $tmp; }
+
 1;