From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 18 Mar 2001 20:21:34 +0000 (+0000)
Subject: Add a hook for running the tests under the Third Degree
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=211f317fca609f5ac54a899e10ccf2cdbfe2496c;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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) {