don't eat array lead-in on empty arrays

src/run-tests.pl

@@ -316,10 +316,10 @@ sub showbox($$)
 	my ($bn) = @_;
 
 	my ($mu, %ms) = readbox($bn);
+	print " [ $mu,\n   ";
 	my $frst = 1;
 	for my $num (sort {$a <=> $b} keys %ms) {
 		if ($frst) {
-			print " [ $mu,\n   ";
 			$frst = 0;
 		} else {
 			print ", ";
@@ -338,18 +338,16 @@ sub showchan()
 		die "Cannot read sync state.\n";
 	$_ = <FILE>;
 	/^1:(\d+) 1:(\d+):(\d+)\n$/;
-	my ($mxm, $mms, $mxs) = ($1, $2, $3);
+	print " [ $1, $2, $3,\n   ";
 	my $frst = 1;
 	for (<FILE>) {
 		/^(\d+) (\d+) (.*)\n$/;
-		my ($mu, $su, $flg) = ($1, $2, $3);
 		if ($frst) {
-			print " [ $mxm, $mms, $mxs,\n   ";
 			$frst = 0;
 		} else {
 			print ", ";
 		}
-		print "$mu, $su, \"$flg\"";
+		print "$1, $2, \"$3\"";
 	}
 	print " ],\n";
 	close FILE;