Permalink
Browse files

Merge branch 'master' of github.com:yappo/p5-App-Ikachan

  • Loading branch information...
2 parents d1d8117 + 1bcddf7 commit ec3cb0b20902e69ce7822743be7ad0d774d7b44e @yappo committed Feb 24, 2012
Showing with 6 additions and 3 deletions.
  1. +6 −3 bin/ikachan
View
9 bin/ikachan
@@ -57,10 +57,13 @@ my $create_session; $create_session = sub {
on_connect => sub {
my ($con, $err) = @_;
if (defined $err) {
- die "connect error: $err\n";
+ warn "connect error: $err\n";
+ sleep 3;
+ $con->disconnect('try reconnect');
+ } else {
+ warn 'connect';
+ $is_connect = 1;
}
- warn 'connect';
- $is_connect = 1;
},
on_disconnect => sub {
warn 'disconnect';

0 comments on commit ec3cb0b

Please sign in to comment.