diff options
author | Joey Hess <joey@gnu.kitenet.net> | 2009-08-12 12:49:40 -0400 |
---|---|---|
committer | Joey Hess <joey@gnu.kitenet.net> | 2009-08-12 12:49:40 -0400 |
commit | 4971f873a0ed64dc3eb4d9ddd5c4977d72317a14 (patch) | |
tree | 53e9b7732d26eda46f3a8890ecf4f910f68c9949 /IkiWiki | |
parent | 63ce4459f58b69ac8bac418b85b789486ac775b1 (diff) | |
download | ikiwiki-4971f873a0ed64dc3eb4d9ddd5c4977d72317a14.tar ikiwiki-4971f873a0ed64dc3eb4d9ddd5c4977d72317a14.tar.gz |
more idiomatic use of foreach
Diffstat (limited to 'IkiWiki')
-rw-r--r-- | IkiWiki/Plugin/darcs.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/IkiWiki/Plugin/darcs.pm b/IkiWiki/Plugin/darcs.pm index 9b62e70e4..2448673ac 100644 --- a/IkiWiki/Plugin/darcs.pm +++ b/IkiWiki/Plugin/darcs.pm @@ -318,9 +318,9 @@ sub rcs_recentchanges ($) { my $hash=$patch->{hash}; my $when=str2time($date); my (@pages, @files, @pg); - push @pages, $_ for (@{$patch->{summary}->[0]->{modify_file}}); - push @pages, $_ for (@{$patch->{summary}->[0]->{add_file}}); - push @pages, $_ for (@{$patch->{summary}->[0]->{remove_file}}); + push @pages, $_ foreach (@{$patch->{summary}->[0]->{modify_file}}); + push @pages, $_ foreach (@{$patch->{summary}->[0]->{add_file}}); + push @pages, $_ foreach (@{$patch->{summary}->[0]->{remove_file}}); foreach my $f (@pages) { $f = $f->{content} if ref $f; $f =~ s,^\s+,,; $f =~ s,\s+$,,; # cut whitespace |