From: Joey Hess <joey@gnu.kitenet.net>
Date: Wed, 12 Aug 2009 16:43:57 +0000 (-0400)
Subject: use a more idiomatic foreach my
X-Git-Tag: 3.1415926~150
X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/commitdiff_plain/906c8f6e5837a1de5e032d40eba0856b9918bbee?ds=sidebyside

use a more idiomatic foreach my
---

diff --git a/IkiWiki/Plugin/monotone.pm b/IkiWiki/Plugin/monotone.pm
index bdb564a71..05c5a514d 100644
--- a/IkiWiki/Plugin/monotone.pm
+++ b/IkiWiki/Plugin/monotone.pm
@@ -575,13 +575,12 @@ sub rcs_recentchanges ($) {
 		}
 		
 		my @changed_files = get_changed_files($automator, $rev);
-		my $file;
 		
 		my ($out, $err) = $automator->call("parents", $rev);
 		my @parents = ($out =~ m/^($sha1_pattern)$/);
 		my $parent = $parents[0];
 
-		foreach $file (@changed_files) {
+		foreach my $file (@changed_files) {
 			next unless length $file;
 			
 			if (defined $config{diffurl} and (@parents == 1)) {