From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 17 May 2002 01:07:09 +0000 (+0000)
Subject: Third Degree tweaks.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9c54ecba7457fac2086e82080f77bd0f3d789ac3;p=p5sagit%2Fp5-mst-13.2.git

Third Degree tweaks.

p4raw-id: //depot/perl@16639
---

diff --git a/pod/perlhack.pod b/pod/perlhack.pod
index 0826802..aea346b 100644
--- 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 3d8aa71..87a7cae 100755
--- 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