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

master
Joey Hess 2009-08-12 12:49:16 -04:00
parent 906c8f6e58
commit 63ce4459f5
1 changed files with 6 additions and 5 deletions

View File

@ -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};
}
}
}