From: Steve Hay <SteveHay@planit.com>
Date: Thu, 12 Feb 2009 10:14:07 +0000 (+0000)
Subject: Skip tests for flattened extensions that weren't built.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=142f6a0dad7812cda11b95861255b33c9c93fc4e;p=p5sagit%2Fp5-mst-13.2.git

Skip tests for flattened extensions that weren't built.

Commit 6ebb0601826917b6ce1b97a2bdd6577110416c64 missed t/harness,
which Win32 uses rather than t/TEST.

Also, make the new variable my().
---

diff --git a/t/TEST b/t/TEST
index 655b3e5..0b99580 100755
--- a/t/TEST
+++ b/t/TEST
@@ -151,7 +151,7 @@ unless (@ARGV) {
 			$extension =~ s!/t$!!;
 			# XXX Do I want to warn that I'm skipping these?
 			next if $skip{$extension};
-			$flat_extension = $extension;
+			my $flat_extension = $extension;
 			$flat_extension =~ s!-!/!g;
 			next if $skip{$flat_extension}; # Foo/Bar may live in Foo-Bar
 		    }
diff --git a/t/harness b/t/harness
index 9c57626..b19bf7f 100644
--- a/t/harness
+++ b/t/harness
@@ -196,6 +196,9 @@ if (@ARGV) {
 			$extension =~ s!/t$!!;
 			# XXX Do I want to warn that I'm skipping these?
 			next if $skip{$extension};
+			my $flat_extension = $extension;
+			$flat_extension =~ s!-!/!g;
+			next if $skip{$flat_extension}; # Foo/Bar may live in Foo-Bar
 		    }
 		    push @manitests, File::Spec->catfile($updir, $test);
 		}