diff --git a/bin/auto b/bin/auto index b6fcbef..97eb808 100755 --- a/bin/auto +++ b/bin/auto @@ -262,7 +262,7 @@ alog '* Connecting to servers...'; dbug '* Connecting to servers...'; # Get servers from config. my %cservers = conf_get('server'); -# Set the hashes and processes hashes. +# Set the socket hash and select instance. our (%SOCKET, $SELECT); $SELECT = IO::Select->new(); my $it = 0; diff --git a/src/Parser/IRC.pm b/src/Parser/IRC.pm index 784aedb..a347098 100644 --- a/src/Parser/IRC.pm +++ b/src/Parser/IRC.pm @@ -106,7 +106,7 @@ sub num001 } # Parse: Numeric:005 -# Prefixes. +# Prefixes and channel modes. sub num005 { my ($svr, @ex) = @_;