Parent Directory | Revision Log | Patch
revision 38 by dpavlin, Sat May 2 14:40:15 2009 UTC | revision 39 by dpavlin, Sat May 2 14:44:31 2009 UTC | |
---|---|---|
# | Line 26 foreach my $stat ( keys %$stats ) { | Line 26 foreach my $stat ( keys %$stats ) { |
26 | print "\n$stat:\n"; | print "\n$stat:\n"; |
27 | my $counter = $stats->{$stat}; | my $counter = $stats->{$stat}; |
28 | foreach my $name ( sort { $counter->{$b} <=> $counter->{$a} } keys %$counter ) { | foreach my $name ( sort { $counter->{$b} <=> $counter->{$a} } keys %$counter ) { |
29 | printf "%8.2f %s\n", $counter->{$name}, $name; | my $d = $counter->{$name}; |
30 | printf "%8.2f %s\n", $d, $name if $d > $too_long; | |
31 | } | } |
32 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |