… | … | ||
---|---|---|---|
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 |