| … | … | ||
|---|---|---|---|
| 287 | 287 | ||
| 288 | # name resolution | 288 | # name resolution |
| 289 | inet_aton $host, sub { | 289 | inet_aton $host, sub { |
| 290 | return unless exists $state{fh}; | 290 | return unless exists $state{fh}; |
| 291 | 291 | ||
| 292 | my $ipn = shift | 292 | my $ipn = shift; |
| 293 | |||
| 294 | 4 == length $ipn | ||
| 293 | or do { | 295 | or do { |
| 294 | %state = (); | 296 | %state = (); |
| 295 | $! = &Errno::ENXIO; | 297 | $! = &Errno::ENXIO; |
| 296 | return $connect->(); | 298 | return $connect->(); |
| 297 | }; | 299 | }; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |