changeset 17001 | 51ff2bc32774 |
parent 16858 | fade1d3a2995 |
child 36859 | 51af1657263b |
17000:552df70f52c2 | 17001:51ff2bc32774 |
---|---|
25 } |
25 } |
26 } |
26 } |
27 } |
27 } |
28 |
28 |
29 foreach my $fun (keys %log) { |
29 foreach my $fun (keys %log) { |
30 push @output, (sprintf "%12d %s\n", $log{$fun}, $fun); |
30 push @output, (sprintf "%14u %s\n", $log{$fun}, $fun); |
31 } |
31 } |
32 |
32 |
33 print (sort @output); |
33 print (sort @output); |