Bug 1174637: a double-colon nick is detected as ":"

Author: globau

extensions/BugModal/lib/MonkeyPatches.pm

@@ -42,10 +42,19 @@ use warnings;
 
 sub moz_nick {
     my ($self) = @_;
-    return $1 if $self->name =~ /:(.+?)\b/;
-    return $self->name if $self->name;
-    $self->login =~ /^([^\@]+)\@/;
-    return $1;
+    if (!exists $self->{moz_nick}) {
+        if ($self->name =~ /:?:(.+?)\b/) {
+            $self->{moz_nick} = $1;
+        }
+        elsif ($self->name) {
+            $self->{moz_nick} = $self->name;
+        }
+        else {
+            $self->login =~ /^([^\@]+)\@/;
+            $self->{moz_nick} = $1;
+        }
+    }
+    return $self->{moz_nick};
 }
 
 1;