Help for this page

Select Code to Download

Select or download this

  if (defined $arg) {
    if (ref($arg) and UNIVERSAL::isa($arg, 'IO::Handle')) {
...
      undef $@;
    }
  }