Help for this page

Select Code to Download


  1. or download this
    # IPC/Msg.pm lines 61-79
sub set {
...

    msgctl($$self,IPC_SET,$ds->pack);
}
  2. or download this
      my $ds = $self->stat
  3. or download this
      $ds = $self->stat
  4. or download this
      {
    package IPC::Msg::Bugfix;
...
  # in your code
  my $msg = new IPC::Msg::Bugfix('24h', IPC_CREAT);
  # and continue as before
  5. or download this
      # avoiding buggy multiple-arg set()
  # $msg->set('qbytes' => 32768); 
  my $ds = $msg->stat or die "stat: $!";
  $ds->qbytes(32768);
  $msg->set($ds);