Tighten addresshints to require leading chars (clashes with future group hint, and no real users contain domain-only addresshints anyway).

1 files changed, 1 insertions, 1 deletions

diff --git a/localuserinfo b/localuserinfo
index f4d5871..40fec4f 100755
--- a/localuserinfo
+++ b/localuserinfo
@@ -126,7 +126,7 @@ sub getuserinfo($) {
 	my @officehints = grep {s/^([\.[:alnum:]_-]+)$/%$1/} split /\s+/, $office;
 	my @addresshints;
 	if (defined($other)) {
-		@addresshints = grep {/^([\.[:alnum:]_-]+|\+)?@([\.[:alnum:]_-]+)?$/} split /\s+/, $other;
+		@addresshints = grep {/^([\.[:alnum:]_-]+|\+)@([\.[:alnum:]_-]+)?$/} split /\s+/, $other;
 	} else {
 		$other = "";
 	}