The first big import towards 5.8.1, @18078. Please do NOT

[perl5.git] / ext / IPC / SysV / Semaphore.pm

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)