From: Steve Hay <SteveHay@planit.com>
Date: Wed, 19 Sep 2007 10:42:15 +0000 (+0000)
Subject: Clean up test files left behind (on Win32, at least) by Archive-Extract
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=80d693dde7675a7adf00a63b6fe47d20f709d2c1;p=p5sagit%2Fp5-mst-13.2.git

Clean up test files left behind (on Win32, at least) by Archive-Extract

p4raw-id: //depot/perl@31904
---

diff --git a/lib/Archive/Extract/t/01_Archive-Extract.t b/lib/Archive/Extract/t/01_Archive-Extract.t
index 4332517..60a26cf 100644
--- a/lib/Archive/Extract/t/01_Archive-Extract.t
+++ b/lib/Archive/Extract/t/01_Archive-Extract.t
@@ -7,6 +7,7 @@ BEGIN {
 
 BEGIN { chdir 't' if -d 't' };
 BEGIN { mkdir 'out' unless -d 'out' };
+END { rmtree('out') };
 
 use strict;
 use lib qw[../lib];