Permalink
Browse files

warn and exit instead of die.

because Object::Event (AnyEvent::IRC use this) ignore die in callback
handler.
  • Loading branch information...
1 parent ef546ba commit 4b565a3422f50111c44e10bd980e83925c1211c5 @hirose31 hirose31 committed Feb 19, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 bin/ikachan
View
3 bin/ikachan
@@ -57,7 +57,8 @@ 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";
+ exit 1;
}
warn 'connect';
$is_connect = 1;

0 comments on commit 4b565a3

Please sign in to comment.