--- recepies/acct/lastcomm-duration.pl	2009/05/02 14:40:15	38
+++ recepies/acct/lastcomm-duration.pl	2009/05/02 14:44:31	39
@@ -26,6 +26,7 @@
 	print "\n$stat:\n";
 	my $counter = $stats->{$stat};
 	foreach my $name ( sort { $counter->{$b} <=> $counter->{$a} } keys %$counter ) {
-		printf "%8.2f %s\n", $counter->{$name}, $name;
+		my $d = $counter->{$name};
+		printf "%8.2f %s\n", $d, $name if $d > $too_long;
 	}
 }