Changeset e31b831eabee2bd237feb0af3236a79826984415
- Timestamp:
- 05/07/10 16:21:40
(3 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
| r0cbd6e9 |
re31b831 |
|
| 459 | 459 | $self->{shared_state} = shmget(IPC_PRIVATE, $SEGSIZE, |
|---|
| 460 | 460 | IPC_CREAT|S_IRWXU|S_IRWXG|S_IRWXO); |
|---|
| 461 | | die "$0: $!" if($self->{shared_state} == -1); |
|---|
| | 461 | die "$0: $!" unless (defined $self->{shared_state}); |
|---|
| 462 | 462 | } |
|---|
| 463 | 463 | return 1; |
|---|
