# 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});
}
}
my %params=@_;
my $template=$params{template};
my $page=$params{page};
+
+ # XXX this is here because I've been seeing a strange uninitialized
+ # value in this sub.
+ if (! defined $config{recentchangespage}) {
+ eval q{use Carp};
+ Carp::cluck("undefined recentchangespage; please report this to Joey");
+ }
+
if ($config{rcs} && $page ne $config{recentchangespage} &&
$template->query(name => "recentchangesurl")) {
$template->param(recentchangesurl => urlto($config{recentchangespage}, $page));
return $page;
} #}}}
-sub updatechanges ($$) { #{{{
- my $subdir=shift;
- my @changes=@{shift()};
-
-} #}}}
-
1