urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use a more idiomatic foreach my

master
Joey Hess 2009-08-12 12:43:57 -04:00
parent 04014e4775
commit 906c8f6e58
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
IkiWiki/Plugin/monotone.pm
View File

@ -575,13 +575,12 @@ sub rcs_recentchanges ($) {
} }
my @changed_files = get_changed_files($automator, $rev); my @changed_files = get_changed_files($automator, $rev);
my $file;
my ($out, $err) = $automator->call("parents", $rev); my ($out, $err) = $automator->call("parents", $rev);
my @parents = ($out =~ m/^($sha1_pattern)$/); my @parents = ($out =~ m/^($sha1_pattern)$/);
my $parent = $parents[0]; my $parent = $parents[0];
foreach $file (@changed_files) { foreach my $file (@changed_files) {
next unless length $file; next unless length $file;
if (defined $config{diffurl} and (@parents == 1)) { if (defined $config{diffurl} and (@parents == 1)) {