| blib/lib/SysV/SharedMem.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 3 | 6 | 50.0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 37 | 2 | 1 | 0 | ftok($filename, $options{'proj_id'}) || croak("Invalid filename for shared memory segment: $!") |
| 52 | 0 | 0 | 8 | $options{'id'} || do { my $key = _get_key($filename, $mode, %options); croak('Zero length specified for shared memory segment') if $options{'size'} == 0 and $get_flags_for{$mode} & IPC_CREAT() || $key == IPC_PRIVATE(); croak("Can't open shared memory object: $!") unless shmget $key, $options{'size'}, $get_flags_for{$mode} | $options{'perms'} } |