X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2FTEST;h=122bd96a864700722b4045cefb4ccd2089f7a563;hb=8ff950ac4dd6a40327ca0d02f43bd42adf4f89ec;hp=a3df2911ac96e21bab92446270158e78dd489210;hpb=211f317fca609f5ac54a899e10ccf2cdbfe2496c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/TEST b/t/TEST
index a3df291..122bd96 100755
--- 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};