{
  my $oldsub = \&AnyEvent::Socket::_parse_hosts;
  no warnings 'redefine';
  *AnyEvent::Socket::_parse_hosts = sub ($) {
    (my $in = shift) =~ s/\r\n/\n/g; $oldsub->($in) };
}