five-bugs-a-day: use splice to trim the bug list

diff --git a/scripts/five-bugs-a-day.pl b/scripts/five-bugs-a-day.pl
index f722c39..c41cac4 100755 (executable)
--- a/scripts/five-bugs-a-day.pl
+++ b/scripts/five-bugs-a-day.pl
@@ -149,7 +149,7 @@ my @all_bugs = keys %BUGS;
 my @bugs = shuffle (\@all_bugs);
 
 # only want first NUM_BUGS bugs
-$#bugs = $NUM_BUGS;
+@bugs = splice (@bugs, 0, $NUM_BUGS);
 
 print "\n";
 print "$NUM_BUGS random bugs:\n";