commit 632e63ccc7529a6e11a3313f4ab6404db3428457
from: jrmu <jrmu@ircnow.org>
date: Tue Mar 07 01:36:45 2023 UTC

Regex error

commit - 9f92fa89dcbfcaa96f613cdf7bc2bab17d7983c2
commit + 632e63ccc7529a6e11a3313f4ab6404db3428457
blob - 9af51a5de3bea0958bed4cbf1367613ba0161815
blob + 23f4da7bd07233b103e5261943c2298011c69dd7
--- Mail.pm
+++ Mail.pm
@@ -271,9 +271,9 @@ sub deletemail {
 	my @passwd = main::readarray($passwdpath);
 	my @virtuals = main::readarray($virtualspath);
 	my @senders = main::readarray($senderspath);
-	@passwd = grep !/^${username}@${hostname}/, @passwd;
-	@virtuals = grep !/^${username}@${hostname}/, @virtuals;
-	@senders = grep !/^${username}@${hostname}/, @senders;
+	@passwd = grep !/^${username}\@${hostname}/, @passwd;
+	@virtuals = grep !/^${username}\@${hostname}/, @virtuals;
+	@senders = grep !/^${username}\@${hostname}/, @senders;
 
 	# trailing newline necessary
 	`doas touch $passwdpath.bak`;