- $nuh{} fix up.

[infobot.git] / blootbot / src / IRC / Irc.pl

diff --git a/blootbot/src/IRC/Irc.pl b/blootbot/src/IRC/Irc.pl
index a6f49c69893dc24ed0c191cf290ee4d1c4112be2..ff275c792cd326ad84444e8d54daafc8eb5265bd 100644 (file)
--- a/blootbot/src/IRC/Irc.pl
+++ b/blootbot/src/IRC/Irc.pl
@@ -654,9 +654,12 @@ sub closeDCC {
     foreach $type (keys %dcc) {
        next if ($type ne uc($type));
  
-       foreach (keys %{$dcc{$type}}) {
-           &DEBUG("closing DCC $type to $_ (FIXME).");
-           $dcc{$type}{$_}->close();
+       foreach $nick (keys %{$dcc{$type}}) {
+           next unless (defined $nick);
+           &DEBUG("closing DCC $type to $nick (FIXME).");
+           next unless (defined $dcc{$type}{$nick});
+
+           $dcc{$type}{$nick}->close();
        }
     }
 }