SF #1264834: Some smileys not counted

docs/Changelog

@@ -2,6 +2,7 @@ pisg (0.68) - ??
    Christoph:
      + ColorScheme 'none' will generate the color gradient again, the gradient
        is dropped with HiCell="".
+     + More smileys (SF #1264834).
    Torbjörn:
      + Generate stats in multiple languages in a single run.
 

modules/Pisg/Parser/Logfile.pm

@@ -399,14 +399,14 @@ sub _parse_file
                     my $e = '[8;:=%]'; # eyes
                     my $n = '[-oc*^]'; # nose
                     # smileys including asian-style (^^ ^_^' ^^; \o/)
-                    if ($saying =~ /(>?$e'?$n[\)pPD\}\]>]|[\(\{\[<]$n'?$e<?|[;:]\)|\([;:]|\^[_o-]*\^[';]|\\[o.]\/)/o) {
+                    if ($saying =~ /(>?$e'?$n[\)pPD\}\]>]|[\(\{\[<]$n'?$e<?|[;:][\)pPD\}\]\>]|\([;:]|\^[_o-]*\^[';]|\\[o.]\/)/o) {
                         $stats->{smiles}{$nick}++;
                         $stats->{smileys}{$1}++;
                         $stats->{smileynicks}{$1} = $nick;
                     }
 
                     # asian frown: ;_;
-                    if ($saying =~ /($e'?$n[\(\[\\\/\{|]|[\)\]\\\/\}|]$n'?$e|[;:]\(|\):|;_+;|T_+T|-[._]+-)/o and
+                    if ($saying =~ /($e'?$n[\(\[\\\/\{|]|[\)\]\\\/\}|]$n'?$e|[;:][\(\/]|\):|;_+;|T_+T|-[._]+-)/o and
                         $saying !~ /\w+:\/\//o) {
                         $stats->{frowns}{$nick}++;
                         $stats->{smileys}{$1}++;