Duh.. embarassed for the bug. Good job perlcritic. :-D

On Tue, May 10, 2022 at 03:22:40AM -0000, sid...@apache.org wrote:
> Author: sidney
> Date: Tue May 10 03:22:40 2022
> New Revision: 1900770
> 
> URL: http://svn.apache.org/viewvc?rev=1900770&view=rev
> Log:
> make a map non-destructive fixes perlcritic error and makes it not destroy 
> the list
> 
> Modified:
>     spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/FromNameSpoof.pm
> 
> Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/FromNameSpoof.pm
> URL: 
> http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/FromNameSpoof.pm?rev=1900770&r1=1900769&r2=1900770&view=diff
> ==============================================================================
> --- spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/FromNameSpoof.pm 
> (original)
> +++ spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/FromNameSpoof.pm Tue May 
> 10 03:22:40 2022
> @@ -443,7 +443,7 @@ sub _check_fromnamespoof {
>      foreach my $list (@lists) {
>        $list_refs->{$list} = $conf->{$list};
>      }
> -    dbg("using addrlists for owner aliases: ".join(', ', map { s/^FNS_//; $_ 
> } @lists));
> +    dbg("using addrlists for owner aliases: ".join(', ', map { s/^FNS_//r; 
> $_ } @lists));
>    }
>    my $fromname_owner = $self->_find_address_owner($fromname_addr, 
> $fromname_domain, $list_refs);
>    my $from_owner = $self->_find_address_owner($from_addr, $from_domain, 
> $list_refs);
> 

Reply via email to