Only punish the user for not sending a PONG if they're unregistered

cmpct · Aug 23, 2016 · 93a336e · 93a336e
1 parent fe6533b
commit 93a336e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/IRCd/Client.pm b/lib/IRCd/Client.pm
@@ -84,7 +84,7 @@ sub parse {
             $self->{log}->debug("[$self->{nick}] Waiting to resolve host, blocking");
             return;
         }
-        if($requirePong and !$registrationCommands{uc($splitPacket[0])}) {
+        if(!$self->{registered} and $requirePong and !$registrationCommands{uc($splitPacket[0])}) {
             $self->{log}->debug("[$self->{nick}] User attempted to register without PONG");
             $self->{socket}->{sock}->write(":$ircd->{host} " . IRCd::Constants::ERR_NOTREGISTERED . " * :You have not registered\r\n");
             return;