X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fh2xs.t;h=380f838c911c24a1756739fbcc1e0f12264157f2;hb=a9d504c36a04b1db7840b9e7ee4324a09113c71b;hp=e6c75c091d618ffef3c210962b2cd9aa3bdd85fa;hpb=98641f606c65e71cca89f9a694e2796b5a21cbd8;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/h2xs.t b/lib/h2xs.t
index e6c75c0..380f838 100644
--- a/lib/h2xs.t
+++ b/lib/h2xs.t
@@ -56,6 +56,10 @@ if ($^O eq 'MacOS') {
 my $name = 'h2xst';
 my $header = "$name.h";
 my $thisversion = sprintf "%vd", $^V;
+$thisversion =~ s/^v//;
+
+# If this test has failed previously a copy may be left.
+rmtree($name);
 
 my @tests = (
 "-f -n $name", $], <<"EOXSFILES",