Changeset 71b6402d4d81a13e6e117dba6cab92cddbfd3fbe

Show
Ignore:
Timestamp:
03/19/10 15:42:27 (4 years ago)
Author:
Mark Harrison <mark@omniti.com>
git-committer:
Mark Harrison <mark@omniti.com> 1269013347 +0000
git-parent:

[e07538c37980e359c934afed8020e94418d8162d]

git-author:
Mark Harrison <mark@omniti.com> 1269013347 +0000
Message:

A little cleanup

git-svn-id: https://labs.omniti.com/resmon/branches/resmon2@265 8c0face9-b7db-6ec6-c4b3-d5f7145c7d55

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • lib/Resmon/Status.pm

    re07538c r71b6402  
    370370    my $handle = IO::Socket->new(); 
    371371    socket($handle, PF_INET, SOCK_STREAM, getprotobyname('tcp')) 
    372     || die "socket: $!"; 
     372        || die "socket: $!"; 
    373373    setsockopt($handle, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) 
    374     || die "setsockopt: $!"; 
     374        || die "setsockopt: $!"; 
    375375    bind($handle, sockaddr_in($port, $ip)) 
    376     || die "bind: $!"; 
     376        || die "bind: $!"; 
    377377    listen($handle,SOMAXCONN); 
    378378