File: 40handler.diff

package info (click to toggle)
libnet-irc-perl 0.79-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, stretch
  • size: 452 kB
  • ctags: 327
  • sloc: perl: 2,309; makefile: 2
file content (11 lines) | stat: -rw-r--r-- 420 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
 
--- a/DCC.pm
+++ b/DCC.pm
@@ -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},