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