Re: [PATCH] spurious t/auto directory appears

Message-ID: <20020914035605.GF18928@ool-18b93024.dyn.optonline.net>

p4raw-id: //depot/perl@17922

diff --git a/lib/ExtUtils/t/Installed.t b/lib/ExtUtils/t/Installed.t
index d62afba..968c418 100644 (file)
--- 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;