From: John P. Linderman <jpl@research.att.com>
Date: Wed, 28 Aug 2002 08:04:29 +0000 (-0400)
Subject: Re: Possible bug in IPC/Semaphore.pm [PATCH]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fcf3e904e30b5d92c334eda2e043582d131787bc;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/ext/IPC/SysV/Semaphore.pm b/ext/IPC/SysV/Semaphore.pm
index cdbfb77..5816f9c 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)