more idiomatic use of foreach
parent
63ce4459f5
commit
4971f873a0
|
@ -318,9 +318,9 @@ sub rcs_recentchanges ($) {
|
||||||
my $hash=$patch->{hash};
|
my $hash=$patch->{hash};
|
||||||
my $when=str2time($date);
|
my $when=str2time($date);
|
||||||
my (@pages, @files, @pg);
|
my (@pages, @files, @pg);
|
||||||
push @pages, $_ for (@{$patch->{summary}->[0]->{modify_file}});
|
push @pages, $_ foreach (@{$patch->{summary}->[0]->{modify_file}});
|
||||||
push @pages, $_ for (@{$patch->{summary}->[0]->{add_file}});
|
push @pages, $_ foreach (@{$patch->{summary}->[0]->{add_file}});
|
||||||
push @pages, $_ for (@{$patch->{summary}->[0]->{remove_file}});
|
push @pages, $_ foreach (@{$patch->{summary}->[0]->{remove_file}});
|
||||||
foreach my $f (@pages) {
|
foreach my $f (@pages) {
|
||||||
$f = $f->{content} if ref $f;
|
$f = $f->{content} if ref $f;
|
||||||
$f =~ s,^\s+,,; $f =~ s,\s+$,,; # cut whitespace
|
$f =~ s,^\s+,,; $f =~ s,\s+$,,; # cut whitespace
|
||||||
|
|
Loading…
Reference in New Issue