Changeset e31b831eabee2bd237feb0af3236a79826984415

Show
Ignore:
Timestamp:
05/07/10 16:21:40 (5 years ago)
Author:
Mark Harrison <mark@omniti.com>
git-committer:
Mark Harrison <mark@omniti.com> 1273249300 +0000
git-parent:

[0a53c4a06aed5af176ddf0eae7105e7102fb448a]

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

Correctly detect the failure of shmget (perldoc perlipc)

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

Files:

Legend:

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

    r0cbd6e9 re31b831  
    459459        $self->{shared_state} = shmget(IPC_PRIVATE, $SEGSIZE, 
    460460            IPC_CREAT|S_IRWXU|S_IRWXG|S_IRWXO); 
    461         die "$0: $!" if($self->{shared_state} == -1); 
     461        die "$0: $!" unless (defined $self->{shared_state}); 
    462462    } 
    463463    return 1;