diff options
| author | Paul Buetow <paul@buetow.org> | 2011-08-06 20:37:06 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2011-08-06 20:37:06 +0000 |
| commit | 796a4793036d11600967608541c74e7f8243c920 (patch) | |
| tree | 06051819bf9a2d0f3a9ae61f8c4fe2964ec6d3f1 | |
| parent | c627a59b2a78644aec256f0e0fc96531fff8a9dc (diff) | |
Not needed here
| -rwxr-xr-x | loadbars.pl | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/loadbars.pl b/loadbars.pl index 0413542..b0b0c17 100755 --- a/loadbars.pl +++ b/loadbars.pl @@ -47,8 +47,6 @@ use Time::HiRes qw(usleep gettimeofday); use threads; use threads::shared; -use IO::Socket; - use constant { DEPTH => 8, VERSION => 'loadbars v0.2.1-devel', @@ -101,27 +99,6 @@ sub sum (@) { my $sum = 0; $sum += $_ for @_; return $sum } sub null ($) { my $arg = shift; return defined $arg ? $arg : 0 } sub set_togglecpu_regexp () { $CONF{cpuregexp} = $CONF{togglecpu} ? 'cpu ' : 'cpu' } -sub unix_make_server_socket ($) { - my $socket_name = shift; - unlink $socket_name; - - return IO::Socket::UNIX->new( - LocalAddr => $socket_name, - Type => SOCK_DGRAM, - Listen => 5 - ) or die "$@\n"; -} - -sub unix_make_client_socket ($) { - my $socket_name = shift; - - return IO::Socket::UNIX->new( - PeerAddr => $socket_name, - Type => SOCK_DGRAM, - Timeout => 10 - ) or die "$@\n"; -} - sub parse_cpu_line ($) { my ($name, %load); |
