You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by he...@apache.org on 2019/07/07 09:34:50 UTC
svn commit: r1862682 - in /spamassassin:
branches/3.4/lib/Mail/SpamAssassin/Conf.pm
trunk/lib/Mail/SpamAssassin/Conf.pm
Author: hege
Date: Sun Jul 7 09:34:49 2019
New Revision: 1862682
URL: http://svn.apache.org/viewvc?rev=1862682&view=rev
Log:
Few more parameter whitespace fixes
Modified:
spamassassin/branches/3.4/lib/Mail/SpamAssassin/Conf.pm
spamassassin/trunk/lib/Mail/SpamAssassin/Conf.pm
Modified: spamassassin/branches/3.4/lib/Mail/SpamAssassin/Conf.pm
URL: http://svn.apache.org/viewvc/spamassassin/branches/3.4/lib/Mail/SpamAssassin/Conf.pm?rev=1862682&r1=1862681&r2=1862682&view=diff
==============================================================================
--- spamassassin/branches/3.4/lib/Mail/SpamAssassin/Conf.pm (original)
+++ spamassassin/branches/3.4/lib/Mail/SpamAssassin/Conf.pm Sun Jul 7 09:34:49 2019
@@ -807,7 +807,7 @@ Please see directives enlist_uri_host an
type => $CONF_TYPE_ADDRLIST,
code => sub {
my($conf, $key, $value, $line) = @_;
- foreach my $host ( split(' ', lc $value) ) {
+ foreach my $host ( split(/\s+/, lc $value) ) {
my $v = $host =~ s/^!// ? 0 : 1;
$conf->{uri_host_lists}{'BLACK'}{$host} = $v;
}
@@ -828,7 +828,7 @@ Please see directives enlist_uri_host an
type => $CONF_TYPE_ADDRLIST,
code => sub {
my($conf, $key, $value, $line) = @_;
- foreach my $host ( split(' ', lc $value) ) {
+ foreach my $host ( split(/\s+/, lc $value) ) {
my $v = $host =~ s/^!// ? 0 : 1;
$conf->{uri_host_lists}{'WHITE'}{$host} = $v;
}
@@ -1936,7 +1936,7 @@ Example:
defined $value && $value =~ s/^(allow|deny)\s+//i
or return $INVALID_VALUE;
my $blocked = lc($1) eq 'deny' ? 1 : 0;
- foreach my $domain (split(' ', $value)) {
+ foreach my $domain (split(/\s+/, $value)) {
$domain =~ s/^\.//; $domain =~ s/\.\z//; # strip dots
$self->{dns_query_blocked}{lc $domain} = $blocked;
}
@@ -2084,7 +2084,7 @@ as they appear in their order in C<bayes
return $MISSING_REQUIRED_VALUE if $value eq '';
my $h = ($self->{bayes_token_sources} ||= {});
my %all_kw = map(($_,1), qw(header visible invisible uri mimepart));
- foreach (split(' ', lc $value)) {
+ foreach (split(/\s+/, lc $value)) {
if (/^(none|noall)\z/) {
%$h = ();
} elsif ($_ eq 'all') {
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Conf.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/Conf.pm?rev=1862682&r1=1862681&r2=1862682&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Conf.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Conf.pm Sun Jul 7 09:34:49 2019
@@ -806,7 +806,7 @@ Please see directives enlist_uri_host an
type => $CONF_TYPE_ADDRLIST,
code => sub {
my($conf, $key, $value, $line) = @_;
- foreach my $host ( split(' ', lc $value) ) {
+ foreach my $host ( split(/\s+/, lc $value) ) {
my $v = $host =~ s/^!// ? 0 : 1;
$conf->{uri_host_lists}{'BLACK'}{$host} = $v;
}
@@ -827,7 +827,7 @@ Please see directives enlist_uri_host an
type => $CONF_TYPE_ADDRLIST,
code => sub {
my($conf, $key, $value, $line) = @_;
- foreach my $host ( split(' ', lc $value) ) {
+ foreach my $host ( split(/\s+/, lc $value) ) {
my $v = $host =~ s/^!// ? 0 : 1;
$conf->{uri_host_lists}{'WHITE'}{$host} = $v;
}
@@ -1937,7 +1937,7 @@ Example:
defined $value && $value =~ s/^(allow|deny)\s+//i
or return $INVALID_VALUE;
my $blocked = lc($1) eq 'deny' ? 1 : 0;
- foreach my $domain (split(' ', $value)) {
+ foreach my $domain (split(/\s+/, $value)) {
$domain =~ s/^\.//; $domain =~ s/\.\z//; # strip dots
$self->{dns_query_blocked}{lc $domain} = $blocked;
}
@@ -2139,7 +2139,7 @@ as they appear in their order in C<bayes
return $MISSING_REQUIRED_VALUE if $value eq '';
my $h = ($self->{bayes_token_sources} ||= {});
my %all_kw = map(($_,1), qw(header visible invisible uri mimepart));
- foreach (split(' ', lc $value)) {
+ foreach (split(/\s+/, lc $value)) {
if (/^(none|noall)\z/) {
%$h = ();
} elsif ($_ eq 'all') {