Attempt to reconnect on error in example code (untested)

sanko · Jun 16, 2011 · 4389d0d · 4389d0d
1 parent ec33dc4
commit 4389d0d
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/examples/client.pl b/examples/client.pl
@@ -1,6 +1,4 @@
 #!/usr/bin/perl -I../lib
-use strict;
-use warnings;
 use AnyEvent;
 use AnyEvent::MSN;
 use 5.012;
@@ -30,7 +28,7 @@
     on_error => sub {
         my ($msn, $msg, $fatal) = @_;
         warn ucfirst sprintf '%serror: %s', ($fatal ? 'fatal ' : ''), $msg;
-        $cv->send if $fatal;
+        $fatal? $cv->send : $msn->connect
     }
 );
 $cv->recv;