local $SIG{__WARN__} = sub {
  /non-portable/i or
  /overflow/i or
  die for @_;
};