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

tidyall.

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