From: Joey Hess <joey@gnu.kitenet.net>
Date: Wed, 12 Aug 2009 16:49:16 +0000 (-0400)
Subject: fix some more foreaches that clal functions to not use $_
X-Git-Tag: 3.1415926~149
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=63ce4459f58b69ac8bac418b85b789486ac775b1;p=ikiwiki.git

fix some more foreaches that clal functions to not use $_
---

diff --git a/IkiWiki/Render.pm b/IkiWiki/Render.pm
index 5cb67ea07..fc8f287ce 100644
--- a/IkiWiki/Render.pm
+++ b/IkiWiki/Render.pm
@@ -379,12 +379,13 @@ sub refresh () {
 			$links{$page}=[];
 			$renderedfiles{$page}=[];
 			$pagemtime{$page}=0;
-			prune($config{destdir}."/".$_)
-				foreach @{$oldrenderedfiles{$page}};
+			foreach my $old (@{$oldrenderedfiles{$page}}) {
+				prune($config{destdir}."/".$old);
+			}
 			delete $pagesources{$page};
-			foreach (keys %destsources) {
-				if ($destsources{$_} eq $page) {
-					delete $destsources{$_};
+			foreach my $source (keys %destsources) {
+				if ($destsources{$source} eq $page) {
+					delete $destsources{$source};
 				}
 			}
 		}