Document the use of Third Degree (sparsely).

p4raw-id: //depot/perl@9216

diff --git a/pod/perlhack.pod b/pod/perlhack.pod
index 1959680..1f398a4 100644 (file)
--- a/pod/perlhack.pod
+++ b/pod/perlhack.pod
@@ -1674,6 +1674,24 @@ standard Perl testset you would create and run Purify as:
 which would instrument Perl in memory, run Perl on test.pl,
 then finally report any memory problems.
 
+=head2 Compaq's/Digital's Third Degree
+
+Third Degree is a tool for memory leak detection and memory access checks.
+It is one of the many tools in the ATOM toolkit.  The toolkit is only
+available on Tru64 (formerly known as Digital UNIX formerly known as
+DEC OSF/1).
+
+When building Perl, you must first run Configure with -Doptimize=-g
+and -Uusemymalloc flags, after that you can use the make targets
+
+"perl.third" and "test.third".  The short story is that with "atom"
+you can instrument the Perl executable to create a new executable
+called "perl.third."  When the instrumented executable is run, it
+creates a log of dubious memory traffic in file called "perl.3log".
+See man atom and man third for more information.  The most extensive
+Third Degree documentation is available in the Compaq "Tru64 UNIX
+Programmer's Guide", chapter "Debugging Programs with Third Degree".
+
 =head2 CONCLUSION
 
 We've had a brief look around the Perl source, an overview of the stages

diff --git a/t/TEST b/t/TEST
index a3df291..122bd96 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -20,6 +20,21 @@ chdir 't' if -f 't/TEST';
 die "You need to run \"make test\" first to set things up.\n"
   unless -e 'perl' or -e 'perl.exe';
 
+if ($ENV{PERL_3LOG}) {
+    unless (-x 'perl.third') {
+       unless (-x '../perl.third') {
+           die "You need to run \"make perl.third first.\n";
+       }
+       else {
+           print "Symlinking ../perl.third as perl.third...\n";
+           die "Failed to symlink: $!\n"
+               unless symlink("../perl.third", "perl.third");
+           die "Symlinked but no executable perl.third: $!\n"
+               unless -x 'perl.third';
+       }
+    }
+}
+
 # check leakage for embedders
 $ENV{PERL_DESTRUCT_LEVEL} = 2 unless exists $ENV{PERL_DESTRUCT_LEVEL};