Parent Directory | Revision Log | Patch
revision 39 by dpavlin, Sat May 2 14:44:31 2009 UTC | revision 40 by dpavlin, Sat May 2 14:46:34 2009 UTC | |
---|---|---|
# | Line 5 use strict; | Line 5 use strict; |
5 | ||
6 | use YAML; | use YAML; |
7 | ||
8 | my $too_long = 0.5; # s | my $too_long = shift @ARGV || 0.5; # s |
9 | my $stats; | my $stats; |
10 | ||
11 | open(my $lastcomm, '-|', 'lastcomm'); | open(my $lastcomm, '-|', 'lastcomm'); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |