From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 5 Feb 2005 22:02:50 +0000 (+0000)
Subject: Stop lib/h2xs.t failing needlessly if it failed to clear up behind
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=98d84473cbdd600ea0a62255d76863484ac654f0;p=p5sagit%2Fp5-mst-13.2.git

Stop lib/h2xs.t failing needlessly if it failed to clear up behind
itself on a previous run.

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

diff --git a/lib/h2xs.t b/lib/h2xs.t
index e6c75c0..a59afa2 100644
--- a/lib/h2xs.t
+++ b/lib/h2xs.t
@@ -57,6 +57,9 @@ my $name = 'h2xst';
 my $header = "$name.h";
 my $thisversion = sprintf "%vd", $^V;
 
+# If this test has failed previously a copy may be left.
+rmtree($name);
+
 my @tests = (
 "-f -n $name", $], <<"EOXSFILES",
 Defaulting to backwards compatibility with perl $thisversion