[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

diff --git a/ext/IPC/SysV/Msg.pm b/ext/IPC/SysV/Msg.pm
index c92eb55..50ca564 100644 (file)
--- 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)