Commit eb758aec authored by Sympa authors's avatar Sympa authors Committed by IKEDA Soji
Browse files

perltidy-ing.

parent 3fffc472
......@@ -1415,7 +1415,7 @@ our @params = (
},
{ 'name' => 'dark_color',
'gettext_id' => 'Colors for web interface, obsoleted',
'default' => '#c0c0c0', # 'silver'
'default' => '#c0c0c0', # 'silver'
'vhost' => '1',
'db' => 'db_first',
},
......@@ -1440,7 +1440,7 @@ our @params = (
'db' => 'db_first',
},
{ 'name' => 'selected_color',
'default' => '#c0c0c0', # 'silver'
'default' => '#c0c0c0', # 'silver'
'vhost' => '1',
'db' => 'db_first',
},
......
......@@ -7630,8 +7630,7 @@ sub get_lists {
sprintf(
'$list->{"admin"}{"family_name"} and $list->{"admin"}{"family_name"} eq "%s"',
quotemeta $family_name);
push @clause_sql,
sprintf(q{family_list LIKE '%s'}, $family_name);
push @clause_sql, sprintf(q{family_list LIKE '%s'}, $family_name);
}
while (1 < scalar @query) {
......
......@@ -50,7 +50,8 @@ use constant _global_validations => {
my $new = shift;
my $list = $self->{context};
my $config = Sympa::List::Config->new($list, config => $list->{'admin'});
my $config =
Sympa::List::Config->new($list, config => $list->{'admin'});
my $pinfo = $self->{_pinfo};
my $loglevel = 'debug'; # was set to 'info' during development
......@@ -93,8 +94,8 @@ use constant _global_validations => {
my $oldowner = $owner[$_];
$owner[$_] = $changes->{$_}->{'email'};
$log->syslog($loglevel,
"update $_ \"$oldowner\" => \"$owner[$_]\"");
}
"update $_ \"$oldowner\" => \"$owner[$_]\"");
}
} CORE::keys %{$changes || {}};
@owner = grep defined, @owner;
......
......@@ -1265,7 +1265,8 @@ sub _merge_msg {
# Check for attchment-part, which should not be changed
my $cdisposition = $entity->head->mime_attr('Content-Disposition');
if ($cdisposition and lc($cdisposition) eq 'attachment') {
$log->syslog('notice', 'Detected part with Content-Disposition. Not changing it!');
$log->syslog('notice',
'Detected part with Content-Disposition. Not changing it!');
return $entity;
}
......
......@@ -36,7 +36,7 @@ use base qw(Sympa::Spool);
my $log = Sympa::Log->instance;
use constant _no_glob_pattern => 1; # Not a filesystem spool.
use constant _no_glob_pattern => 1; # Not a filesystem spool.
sub next {
my $self = shift;
......
......@@ -96,7 +96,7 @@ sub new {
## Build all Sympa::Task objects
sub list_tasks {
my $spool_task = shift;
my $filter = shift;
my $filter = shift;
## Create required tasks
unless (opendir(DIR, $spool_task)) {
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment