Commit ef80cb27 authored by IKEDA Soji's avatar IKEDA Soji
Browse files

tidyall.

parent 8d2761b3
......@@ -70,7 +70,7 @@ sub _load_next {
if ($options{turn} eq 'first') {
return $self->SUPER::_load_next(%options);
}
my @retrieved;
while (my $value = shift @{$self->{_attr1values} || []}) {
my ($escaped, $suffix, $filter);
......@@ -107,7 +107,7 @@ sub _load_next {
$self->{_ds} = $mesg; # hack __dsh()
my @tmp_array = $self->SUPER::_load_next(%options);
@tmp_array = map{@$_} @tmp_array;
@tmp_array = map {@$_} @tmp_array;
push @retrieved, @tmp_array;
}
......
......@@ -330,7 +330,7 @@ sub _get_recipient_tabs_by_domain {
@rcpt = map {
join '@', grep { defined $_ } @$_;
} sort {
(($a->[1] // '') cmp ($b->[1] // '')) || ($a->[0] cmp $b->[0])
(($a->[1] // '') cmp($b->[1] // '')) || ($a->[0] cmp $b->[0])
} map {
[split /\@/, $_, 2]
} @rcpt;
......
......@@ -11,7 +11,7 @@ my @files = <default/scenari/*.*>;
foreach my $file (@files) {
open my $fh, '<', $file or die $ERRNO;
my $data = do {local $RS; <$fh>};
my $data = do { local $RS; <$fh> };
close $fh;
my $parsed = Sympa::Scenario::compile('*', $data);
......
Markdown is supported
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