Fix perl error

This commit is contained in:
Jamie Cameron
2016-08-14 11:41:33 -07:00
parent 031dd76538
commit 792b4d2bd7

View File

@@ -827,7 +827,7 @@ if ($dmarc->{'other'}) {
push(@rv, @{$dmarc->{'other'}});
}
my @rvwords;
my $rvword;
my $rvword = "";
while(@rv) {
my $w = shift(@rv);
if (length($rvword)+length($w)+1 >= 255) {