Select Code to Download

# IPC/Msg.pm lines 61-79
sub set {
...

    msgctl($$self,IPC_SET,$ds->pack);
}

  my $ds = $self->stat

  $ds = $self->stat

  {
    package IPC::Msg::Bugfix;
...
  # in your code
  my $msg = new IPC::Msg::Bugfix('24h', IPC_CREAT);
  # and continue as before

  # avoiding buggy multiple-arg set()
  # $msg->set('qbytes' => 32768); 
  my $ds = $msg->stat or die "stat: $!";
  $ds->qbytes(32768);
  $msg->set($ds);