diff options
| author | Edmund Bacon <unknown> | 2003-02-18 21:05:15 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-03-02 22:30:50 +0000 |
| commit | a4fe5ed87a9a8e25914c68f9d7d5d7e3a2514f95 (patch) | |
| tree | efc2559b4d64ab18ec4b6a3da7ef96f74a4ed218 /ext/IPC | |
| parent | 8003a3f39e0d3ffb6292cac71089be1d83d95a6a (diff) | |
| download | perl-a4fe5ed87a9a8e25914c68f9d7d5d7e3a2514f95.tar.gz | |
[perl #21289] [Fwd: IPC::Msg bug report]
From: Edmund Bacon (via RT) <perlbug-followup@perl.org>
Message-Id: <rt-21289-52384.13.2700974026643@bugs6.perl.org>
p4raw-id: //depot/perl@18811
Diffstat (limited to 'ext/IPC')
| -rw-r--r-- | ext/IPC/SysV/Msg.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/IPC/SysV/Msg.pm b/ext/IPC/SysV/Msg.pm index c92eb558f0..50ca564906 100644 --- a/ext/IPC/SysV/Msg.pm +++ b/ext/IPC/SysV/Msg.pm @@ -69,7 +69,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) |