| … | … | ||
|---|---|---|---|
| 18 | 18 | ||
| 19 | my $rbytes; | 19 | my $rbytes; |
| 20 | 20 | ||
| 21 | my $hdl; | 21 | my $hdl; |
| 22 | my $wo = tcp_connect 'www.google.com', 80, sub { | 22 | my $wo = tcp_connect 'www.google.com', 80, sub { |
| 23 | my ($sock) = @_; | 23 | my ($fh) = @_; |
| 24 | |||
| 24 | $hdl = | 25 | $hdl = |
| 25 | AnyEvent::Handle->new ( | 26 | AnyEvent::Handle->new ( |
| 26 | fh => $sock, | 27 | fh => $fh, |
| 27 | on_error => sub { | 28 | on_error => sub { |
| 28 | warn "socket error: $!"; | 29 | warn "socket error: $!"; |
| 29 | $cv->broadcast; | 30 | $cv->broadcast; |
| 30 | }, | 31 | }, |
| 31 | on_eof => sub { | 32 | on_eof => sub { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |