Help for this page

Select Code to Download

Select or download this

sub is_hex {
  my ($s) = @_;

  local $SIG{__WARN__} = sub { die };
  return eval { scalar hex $s; 1 };
}

Select or download this

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