This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip tests for flattened extensions that weren't built.
authorSteve Hay <SteveHay@planit.com>
Thu, 12 Feb 2009 10:14:07 +0000 (10:14 +0000)
committerSteve Hay <SteveHay@planit.com>
Thu, 12 Feb 2009 10:15:35 +0000 (10:15 +0000)
Commit 6ebb0601826917b6ce1b97a2bdd6577110416c64 missed t/harness,
which Win32 uses rather than t/TEST.

Also, make the new variable my().

t/TEST
t/harness

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
                    }
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);
                }