Просмотр исходного кода

Correct fix for the NICK problem... was actually a larger bug not found yet

sbingner 24 лет назад
Родитель
Сommit
c4ea853e33
1 измененных файлов с 2 добавлено и 2 удалено
  1. 2 2
      modules/Pisg/Parser/Format/pircbot.pm

+ 2 - 2
modules/Pisg/Parser/Format/pircbot.pm

@@ -20,7 +20,7 @@ sub new
                       '^(\d+)\s(>>>)PRIVMSG\s(#\S+)\s:' . $ctcpchr . 'ACTION (.+)' . $ctcpchr . '\s*$',
                       '^(\d+)\s(>>>)PRIVMSG\s(#\S+)\s:' . $ctcpchr . 'ACTION (.+)' . $ctcpchr . '\s*$',
 	thirdline  => '^(\d+)\s:([^!]+)![^@]+@\S+\s(.+)$'
 	thirdline  => '^(\d+)\s:([^!]+)![^@]+@\S+\s(.+)$'
                       . '|' .
                       . '|' .
-                      '^(\d+)\s(>>>)([^P]\S+)\s+(.+)$',
+                      '^(\d+)\s(>>>)([^P].+)$',
     };
     };
 
 
     bless($self, $type);
     bless($self, $type);
@@ -130,7 +130,7 @@ sub thirdline
             return unless (lc($line[1]) eq ':' . lc($self->{cfg}->{channel}));
             return unless (lc($line[1]) eq ':' . lc($self->{cfg}->{channel}));
             $hash{newjoin} = $hash{nick};
             $hash{newjoin} = $hash{nick};
 
 
-        } elsif (defined($line[1]) && $line[0] eq 'NICK') {
+        } elsif ($line[0] eq 'NICK') {
             $hash{newnick} = $line[1];
             $hash{newnick} = $line[1];
             $hash{newnick} =~ s/^://;
             $hash{newnick} =~ s/^://;
         }
         }