diff options
Diffstat (limited to 'ext/IPC')
| -rw-r--r-- | ext/IPC/SysV/Semaphore.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/IPC/SysV/Semaphore.pm b/ext/IPC/SysV/Semaphore.pm index cdbfb77790..5816f9c1e9 100644 --- a/ext/IPC/SysV/Semaphore.pm +++ b/ext/IPC/SysV/Semaphore.pm @@ -111,7 +111,7 @@ sub set { else { croak 'Bad arg count' if @_ % 2; my %arg = @_; - my $ds = $self->stat + $ds = $self->stat or return undef; my($key,$val); $ds->$key($val) |