warn and exit instead of die.

because Object::Event (AnyEvent::IRC use this) ignore die in callback handler.
yappo · Feb 19, 2012 · 4b565a3 · 4b565a3
1 parent ef546ba
commit 4b565a3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/bin/ikachan b/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;