dont overwrite nuh{} if it already exists.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@344 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/blootbot/src/IRC/IrcHooks.pl b/blootbot/src/IRC/IrcHooks.pl
index 0b0887aee7a4ed65faa01866fe41ccb59d5ffef4..8423271b053cdd7bd1ec9d3cacc05ab5564789ea 100644 (file)
--- a/blootbot/src/IRC/IrcHooks.pl
+++ b/blootbot/src/IRC/IrcHooks.pl
@@ -173,10 +173,11 @@ sub on_dcc {
     my $nick = $event->nick();
 
     # pity Net::IRC doesn't store nuh. Here's a hack :)
-    $self->whois($nick);
-    $nuh{lc $nick}     = "GETTING-NOW";        # trying.
+    if (!exists $nuh{lc $nick}) {
+       $self->whois($nick);
+       $nuh{lc $nick}  = "GETTING-NOW";        # trying.
+    }
     $type ||= "???";
-    &DEBUG("on_dcc: nuh => GETTING-NOW.");
 
     if ($type eq 'SEND') {     # GET for us.
        # incoming DCC SEND. we're receiving a file.