From: Edmund Bacon <unknown>
Date: Tue, 18 Feb 2003 21:05:15 +0000 (+0000)
Subject: [perl #21289] [Fwd: IPC::Msg bug report]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a4fe5ed87a9a8e25914c68f9d7d5d7e3a2514f95;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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)