run_workload(): return number of benchmarks run

Previously returned 1 if any benchmarks were run, or undef otherwise; that seems fairly useless.
arc · Jan 7, 2012 · d4853c7 · d4853c7
1 parent bda8bb5
commit d4853c7
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Benchmark/PriorityQueue.pm b/lib/Benchmark/PriorityQueue.pm
@@ -40,7 +40,7 @@ sub all_tasks {
 
 sub run_workload {
 	my ($task, $max_rank_exponent, $timeout, @backends) = @_;
-	my $result;
+	my $result = 0;
 	if (@backends == 0) {
 		# If no backends specified, test them all.
 		@backends = all_backends();
@@ -52,7 +52,7 @@ sub run_workload {
 		next unless $shim->supports($task);
 		$shim->timeout($timeout);
 		print $shim->backend, ", ";
-		$result = $shim->print_benchmark($task, $max_rank_exponent);
+		$result += $shim->print_benchmark($task, $max_rank_exponent);
 	}
 	say "";
 	return $result;