hval: only perform one substitution when obfuscating

Only one substitution character is necessary when obfuscating
email addresses.

2 files changed, 3 insertions, 1 deletions

diff --git a/lib/PublicInbox/Hval.pm b/lib/PublicInbox/Hval.pm
index 80050886..8d36fc2b 100644
--- a/lib/PublicInbox/Hval.pm
+++ b/lib/PublicInbox/Hval.pm
@@ -100,7 +100,7 @@ sub obfuscate_addrs ($$) {
                 if ($addrs->{$addr} || ((defined $re && $domain =~ $re))) {
                         $addr;
                 } else {
-                        $addr =~ s!([^\.]+)\.!$1•!g;
+                        $addr =~ s!([^\.]+)\.!$1•!;
                         $addr
                 }
                 /sge;
diff --git a/t/hval.t b/t/hval.t
index dcbd8382..a3712666 100644
--- a/t/hval.t
+++ b/t/hval.t
@@ -17,6 +17,7 @@ hello@example.comm
 hello@example.com
 meta@public-inbox.org
 test@public-inbox.org
+test@a.b.c.org
 EOF
 
 PublicInbox::Hval::obfuscate_addrs($ibx, $html);
@@ -26,6 +27,7 @@ hello@example•comm
 hello@example.com
 meta@public-inbox.org
 test@public-inbox•org
+test@a•b.c.org
 EOF
 
 is($html, $exp, 'only obfuscated relevant addresses');