[patch@31701] /lib/File/Find/t/taint.t - VMS Symlinks Part 3 of ?

[p5sagit/p5-mst-13.2.git] / lib / h2xs.t

diff --git a/lib/h2xs.t b/lib/h2xs.t
index 5485323..380f838 100644 (file)
--- a/lib/h2xs.t
+++ b/lib/h2xs.t
@@ -14,7 +14,7 @@ BEGIN {
     @INC = '../lib';
     # FIXME (or rather FIXh2xs)
     require Config;
-    if (($Config::Config{'extensions'} !~ /\bDevel::PPPort\b/) ){
+    if (($Config::Config{'extensions'} !~ m!\bDevel/PPPort\b!) ){
        print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
        exit 0;
     }
@@ -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",