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 |