{
    package IPC::Msg::Bugfix;
    our @ISA = qw/ IPC::Msg /;
    sub set {
      # corrected version of set here ...
    }
  }
  # in your code
  my $msg = new IPC::Msg::Bugfix('24h', IPC_CREAT);
  # and continue as before