1
2
3
4
5
6
7
8
9
10
11
12
13
|
Index: libnet-irc-perl/DCC.pm
===================================================================
--- libnet-irc-perl.orig/DCC.pm 2008-01-24 15:43:38.000000000 +0200
+++ libnet-irc-perl/DCC.pm 2008-01-24 16:38:14.000000000 +0200
@@ -145,7 +145,7 @@
# Only do the Disconnection Dance of Death if the socket is still
# live. Duplicate dcc_close events would be a Bad Thing.
- if ($self->{_socket}->opened) {
+ if ($self->{_socket}->opened and $self->{_parent}->can('handler')) {
$self->{_parent}->handler(Net::IRC::Event->new('dcc_close',
$self->{_nick},
$self->{_socket},
|
