summaryrefslogtreecommitdiff
path: root/t/TEST
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2013-06-19 13:37:25 +0200
committerNicholas Clark <nick@ccl4.org>2013-07-01 11:13:02 +0200
commitf01ecde888eb7fbeac3d61f1428d7a2e3f3e930f (patch)
treea71230c451d3a4aaa7debdc44a6437dc83700d69 /t/TEST
parent499cea6bb2a524e77c3c7bbe334bac90b130b3b6 (diff)
downloadperl-f01ecde888eb7fbeac3d61f1428d7a2e3f3e930f.tar.gz
Remove Makefile targets and tools related to Irix and Tru64 debugging tools.
Remove the targets: perl.pixie perl.pixie.atom perl.pixie.config perl.pixie.irix perl.third perl.third.config It's still possible to run the actions these targets "by hand", if desired. This commit removes the convenience targets from the Makefile, reducing its complexity. It also removes the related support scripts testall.atom and thirdclean from Porting/ pixie is a performance analysis tool for Irix and Tru64 Third Degree is a memory checker tool for Tru64 Given that Tru64 went out of support at the end of 2012, and Irix goes out of support at the end of 2013, it's very unlikely that anyone is still actively profiling or debugging perl on either platform, and hence using these targets. It's been several years since we've even had a regular bug report from either platform.
Diffstat (limited to 't/TEST')
-rwxr-xr-xt/TEST23
1 files changed, 0 insertions, 23 deletions
diff --git a/t/TEST b/t/TEST
index 3c00b5ea6d..96eb6a48dc 100755
--- a/t/TEST
+++ b/t/TEST
@@ -139,21 +139,6 @@ if (-f 'TEST' && -f 'harness' && -d '../lib') {
die "You need to run \"make test\" first to set things up.\n"
unless -e 'perl' or -e 'perl.exe' or -e 'perl.pm';
-if ($ENV{PERL_3LOG}) { # Tru64 third(1) tool, see perlhack
- 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};
# check existence of all symbols
@@ -727,14 +712,6 @@ EOT
if ($type eq 'deparse') {
unlink "./$test.dp";
}
- if ($ENV{PERL_3LOG}) {
- my $tpp = $test;
- $tpp =~ s:^\.\./::;
- $tpp =~ s:/:_:g;
- $tpp =~ s:\.t$:.3log:;
- rename("perl.3log", $tpp) ||
- die "rename: perl3.log to $tpp: $!\n";
- }
if (not defined $failure and $next != $max) {
$failure="FAILED--expected $max tests, saw $next";
}