Add a hook for running the tests under the Third Degree

debugging tool (set $ENV{PERL_3LOG} to non-zero)

TODO: Document the use of Third Degree.

p4raw-id: //depot/perl@9210

diff --git a/t/TEST b/t/TEST
index a2c8899..a3df291 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -146,6 +146,12 @@ EOT
            }
        }
        close RESULTS;
+       if ($ENV{PERL_3LOG}) {
+           my $tpp = $test;
+           $tpp =~ s:/:_:g;
+           $tpp =~ s:\.t$::;
+           rename("perl.3log", "perl.3log.$tpp");
+       }
        $next = $next - 1;
        if ($ok && $next == $max) {
            if ($max) {