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 (file)
--- 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)