| … | … | ||
|---|---|---|---|
| 18 | my $fbytes; | 18 | my $fbytes; |
| 19 | my $rbytes; | 19 | my $rbytes; |
| 20 | 20 | ||
| 21 | my $ae_sock = | 21 | my $ae_sock = |
| 22 | AnyEvent::Socket->new ( | 22 | AnyEvent::Socket->new ( |
| 23 | PeerAddr => "www.google.de:80", | 23 | PeerAddr => "www.google.com:80", |
| 24 | on_eof => sub { $cv->broadcast }, | 24 | on_eof => sub { $cv->broadcast }, |
| 25 | on_error => sub { | 25 | on_error => sub { |
| 26 | my ($ae_sock) = @_; | 26 | my ($ae_sock) = @_; |
| 27 | diag "error: $!"; | 27 | diag "error: $!"; |
| 28 | $cv->broadcast | 28 | $cv->broadcast |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |