fix some more foreaches that clal functions to not use $_
authorJoey Hess <joey@gnu.kitenet.net>
Wed, 12 Aug 2009 16:49:16 +0000 (12:49 -0400)
committerJoey Hess <joey@gnu.kitenet.net>
Wed, 12 Aug 2009 16:49:16 +0000 (12:49 -0400)
IkiWiki/Render.pm

index 5cb67ea07ec34a4f1eb7b6a3176179fa2d5f182a..fc8f287ced58759d1954f1ef962701bada4f36e1 100644 (file)
@@ -379,12 +379,13 @@ sub refresh () {
                        $links{$page}=[];
                        $renderedfiles{$page}=[];
                        $pagemtime{$page}=0;
                        $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};
                        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};
                                }
                        }
                }
                                }
                        }
                }