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 (executable)
--- 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 (file)
--- 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);
                }