diff options
| author | John P. Linderman <jpl@research.att.com> | 2002-08-28 04:04:29 -0400 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-09-04 10:53:59 +0000 |
| commit | fcf3e904e30b5d92c334eda2e043582d131787bc (patch) | |
| tree | b1fcd1442b9e8f6a2dc94158137944ddd4d4f087 /ext/IPC | |
| parent | 3a1825b5137e86b5a16512c85cd54354148a299f (diff) | |
| download | perl-fcf3e904e30b5d92c334eda2e043582d131787bc.tar.gz | |
Re: Possible bug in IPC/Semaphore.pm [PATCH]
From: "John P. Linderman" <jpl@research.att.com>
Message-Id: <200208271900.PAA98096@raptor.research.att.com>
p4raw-id: //depot/perl@17825
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) |