From: Michael G. Schwern <schwern@pobox.com>
Date: Fri, 13 Sep 2002 23:56:05 +0000 (-0400)
Subject: Re: [PATCH] spurious t/auto directory appears
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b5f5ff401c8b227d693fbae417b9c4815b5772fb;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;