# delete old and excess changes
foreach my $page (keys %pagesources) {
- if ($page =~ /\._change$/ && ! $seen{$page}) {
+ if ($pagesources{$page} =~ /\._change$/ && ! $seen{$page}) {
unlink($config{srcdir}.'/'.$pagesources{$page});
}
}
return $page;
} #}}}
-sub updatechanges ($$) { #{{{
- my $subdir=shift;
- my @changes=@{shift()};
-
-} #}}}
-
1