Help for this page

Select Code to Download


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