Third Degree tweaks.

p4raw-id: //depot/perl@16639

diff --git a/pod/perlhack.pod b/pod/perlhack.pod
index 08268022f4c19e593879cc6b4b28edcbfc200efe..aea346bc29a0a5c749af1d58613626fa9c5b7a86 100644 (file)
--- a/pod/perlhack.pod
+++ b/pod/perlhack.pod
@@ -2035,21 +2035,11 @@ 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".
 
-The "test.third" leaves a lot of files named F<perl.3log.*> in the t/
+The "test.third" leaves a lot of files named F<foo_bar.3log> in the t/
 subdirectory.  There is a problem with these files: Third Degree is so
 effective that it finds problems also in the system libraries.
-Therefore there are certain types of errors that you should ignore in
-your debugging.  Errors with stack traces matching
-
-    __actual_atof|__catgets|_doprnt|__exc_|__exec|_findio|__localtime|setlocale|__sia_|__strxfrm
-
-(all in libc.so) are known to be non-serious.  You can also
-ignore the combinations
-
-    Perl_gv_fetchfile() calling strcpy()
-    S_doopen_pmc() calling strcmp()
-
-causing "rih" (reading invalid heap) errors.
+Therefore you should used the Porting/thirdclean script to cleanup
+the F<*.3log> files.
 
 There are also leaks that for given certain definition of a leak,
 aren't.  See L</PERL_DESTRUCT_LEVEL> for more information.

diff --git a/t/TEST b/t/TEST
index 3d8aa719e6e9d0f5d30fc4b6034cafdb1fb94d37..87a7caeed91037e9586e5e20176f1ad699a99cbd 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -321,11 +321,10 @@ EOT
        }
        if ($ENV{PERL_3LOG}) {
            my $tpp = $test;
-           $tpp =~ s:^../::;
-           if ($tpp =~ m:/:) { $tpp =~ s:/:_:g } else { $tpp = "op_$tpp" }
+           $tpp =~ s:/:_:g;
            $tpp =~ s:\.t$::;
-           rename("perl.3log", "perl.3log.$tpp") ||
-               die "rename: perl3.log to perl.3log.$tpp: $!\n";
+           rename("perl.3log", "$tpp.3log") ||
+               die "rename: perl3.log to $tpp.3log: $!\n";
        }
        $next = $next - 1;
         # test if the compiler compiled something