complete-run: fix uninitialized warning

diff --git a/testcases/complete-run.pl b/testcases/complete-run.pl
index fe652623fe7f4b6445b4f14e65b7b908586ddd3e..3b2bfc4fc57c813577d75cc56340de4340e84c8b 100755 (executable)
--- a/testcases/complete-run.pl
+++ b/testcases/complete-run.pl
@@ -172,7 +172,8 @@ my @slowest = map  { $_->[0] }
               grep { !/^GLOBAL$/ } keys %timings;
 say '';
 say 'The slowest tests are:';
-printf("\t%s with %.2f seconds\n", $_, $timings{$_}) for @slowest[0..4];
+printf("\t%s with %.2f seconds\n", $_, $timings{$_})
+    for @slowest[0..($#slowest > 4 ? 4 : $#slowest)];
 
 END { cleanup() }