Mon Apr 02 23:19:05 2018tests [...] pialasse.com - Ticket created
Subject:
wrong regex
Date:
Mon, 2 Apr 2018 23:12:06 -0400
To:
bug-Mail-SRS [...] rt.cpan.org
From:
Jean-Philippe PIALASSE <tests [...] pialasse.com>
in Mail/SRS.pm
line 237
sub reverse {
my ($self, $address) = @_;
$address =~ m/^(.*)\@([^@])+$/ or croak 'Address contains no @';
should be
$address =~ m/^(.*)\@([^@]+)$/ or croak 'Address contains no @';
the current regex capture only the last digit of the host.