isync

commit 963f607c81395f9c8a90cf0bc7600e163951c7a9
parent 4dc23fee7b7c1d2f8f58de5468e3a39059b57d9a
Author: Oswald Buddenhagen <ossi@users.sf.net>
Date:   Mon, 26 Dec 2005 15:54:09 +0000

don't eat array lead-in on empty arrays

Diffstat:
M
src/run-tests.pl
 | 
8
+++-----

1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/src/run-tests.pl b/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;