local $SIG{__WARN__} = sub {
    warn @_ unless $_[0] =~ /uninitialised/;
  };