summaryrefslogtreecommitdiff
path: root/lib/ExtUtils/t/Installed.t
diff options
context:
space:
mode:
Diffstat (limited to 'lib/ExtUtils/t/Installed.t')
-rw-r--r--lib/ExtUtils/t/Installed.t12
1 files changed, 1 insertions, 11 deletions
diff --git a/lib/ExtUtils/t/Installed.t b/lib/ExtUtils/t/Installed.t
index d62afba434..968c4187c6 100644
--- a/lib/ExtUtils/t/Installed.t
+++ b/lib/ExtUtils/t/Installed.t
@@ -80,11 +80,9 @@ ok( !$ei->_is_under('foo', @under), '... should find no file not under dirs');
ok( $ei->_is_under('baz', @under), '... should find file under dir' );
-my $wrotelist;
-
rmtree 'auto/FakeMod';
ok( mkpath('auto/FakeMod') );
-END { rmtree 'auto/FakeMod' }
+END { rmtree 'auto' }
ok(open(PACKLIST, '>auto/FakeMod/.packlist'));
print PACKLIST 'list';
@@ -230,14 +228,6 @@ is( ${ $ei->packlist('yesmod') }, 102,
is( $ei->version('yesmod'), 101,
'version() should report installed mod version' );
-END {
- if ($wrotelist) {
- for my $file (qw( .packlist FakePak.pm )) {
- 1 while unlink $file;
- }
- File::Path::rmtree('auto') or warn "Couldn't rmtree auto: $!";
- }
-}
package Fakepak;