sub _error {
    my $sock = shift;
    my $err = shift;
    {
      local($!);
      my $title = ref($sock).": ";
      $@ = join("", $_[0] =~ /^$title/ ? "" : $title, @_);      <-- 83
      close($sock)
	if(defined fileno($sock));
    }
    $! = $err;
    return undef;
}