diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-09-13 19:56:05 -0400 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-09-26 08:25:28 +0000 |
| commit | b5f5ff401c8b227d693fbae417b9c4815b5772fb (patch) | |
| tree | 314ea554e934161114e25ce252498de9afed37e5 /lib | |
| parent | cb1ce60838923277ddef8cb8d26370507470dbd7 (diff) | |
| download | perl-b5f5ff401c8b227d693fbae417b9c4815b5772fb.tar.gz | |
Re: [PATCH] spurious t/auto directory appears
Message-ID: <20020914035605.GF18928@ool-18b93024.dyn.optonline.net>
p4raw-id: //depot/perl@17922
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/t/Installed.t | 12 |
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; |