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 (file)
--- 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