mail-uplift fix regex
authorTony Finch <dot@dotat.at>
Fri, 28 Nov 2014 20:51:46 +0000 (20:51 +0000)
committerTony Finch <dot@dotat.at>
Fri, 28 Nov 2014 20:51:46 +0000 (20:51 +0000)
ipreg-mail-uplift

index b4d7639..824f3a5 100755 (executable)
@@ -8,7 +8,7 @@ use strict;
 sub shite { die "ipreg-mail-uplift: @_: $!\n"; }
 sub shit  { die "ipreg-mail-uplift: @_\n"; }
 
-my $mailbox = qr{^(?:ip-reg/)?(?:inbox|hostmaster|misc|pending|z|
+my $mailbox = qr{(?:ip-reg/)?(?:inbox|hostmaster|misc|pending|z|
                   latin-american|mail/support|
                   ipreg/inbox|pending/ip-reg|ip-reg):\d+}x;