Make TEST and UTEST more verbose in case something goes

wrong in running/compiling a script, suggested by Doug
MacEachern.

p4raw-id: //depot/perl@8764

1 files changed, 8 insertions, 5 deletions

diff --git a/t/TEST b/t/TEST
index 65b1aa4ef4..6237f9e10d 100755
--- a/t/TEST
+++ b/t/TEST
@@ -87,13 +87,16 @@ EOT
 	}
 
 	if ($type eq 'perl') {
-	    open(RESULTS,"./perl$switch $test |") or print "can't run.\n";
+	    my $run = "./perl$switch $test |"; 
+	    open(RESULTS,$run) or print "can't run '$run': $!.\n";
 	}
 	else {
-	    open(RESULTS, "./perl -I../lib ../utils/perlcc -o ./$test.plc ./$test "
-	    		 ." && ./$test.plc |")
-		or print "can't compile.\n";
-        unlink "./$test.plc";
+	    my $compile =
+		"./perl -I../lib ../utils/perlcc -o ./$test.plc ./$test "
+		." && ./$test.plc |";
+	    open(RESULTS, $compile)
+		or print "can't compile '$compile': $!.\n";
+	    unlink "./$test.plc";
 	}
 
 	$ok = 0;