ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent-MP/eg/chat_client
(Generate patch)

Comparing AnyEvent-MP/eg/chat_client (file contents):
Revision 1.4 by root, Fri Aug 14 15:38:02 2009 UTC vs.
Revision 1.5 by root, Fri Aug 14 15:53:56 2009 UTC

… …
16my ($client, $server); 16my ($client, $server);
17 17
18sub server_connect { 18sub server_connect {
19 print "\rconnecting...\n"; 19 print "\rconnecting...\n";
20 20
21 $client = port { 21 $client = port { print "\r \r@_\n> " };
22 print "\r \r@_\n> ";
23 0
24 };
25 mon $client, sub { 22 mon $client, sub {
26 print "\rdisconnected @_\n"; 23 print "\rdisconnected @_\n";
27 &server_connect; 24 &server_connect;
28 }; 25 };
29 26

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines