{
  no warnings 'redefine';
  sub Device::SerialPort::carp { };  # no-op
}


##</code><code>##

{
  no warnings 'redefine';
  local *Device::SerialPort::carp = sub { 
    # no-op
  };
  $PortObj = new Device::SerialPort($port, 1) or next; 
}
# carp works again