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

1 files changed, 6 insertions, 0 deletions

diff --git a/t/TEST b/t/TEST
index a2c8899d52..a3df2911ac 100755
--- 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) {