use vars qw{%config %links %oldlinks %pagemtime %pagectime %pagecase
%pagestate %wikistate %renderedfiles %oldrenderedfiles
- %pagesources %destsources %depends %hooks %forcerebuild
- %loaded_plugins %depends_exact};
+ %pagesources %destsources %depends %depends_simple %hooks
+ %forcerebuild %loaded_plugins};
use Exporter q{import};
our @EXPORT = qw(hook debug error template htmlpage add_depends pagespec_match
if (! $config{rebuild}) {
%pagesources=%pagemtime=%oldlinks=%links=%depends=
%destsources=%renderedfiles=%pagecase=%pagestate=
- %depends_exact=();
+ %depends_simple=();
}
my $in;
if (! open ($in, "<", "$config{wikistatedir}/indexdb")) {
$links{$page}=$d->{links};
$oldlinks{$page}=[@{$d->{links}}];
}
- if (exists $d->{depends_exact}) {
- $depends_exact{$page}={
- map { $_ => 1 } @{$d->{depends_exact}}
+ if (exists $d->{depends_simple}) {
+ $depends_simple{$page}={
+ map { $_ => 1 } @{$d->{depends_simple}}
};
}
if (exists $d->{dependslist}) {
$index{page}{$src}{dependslist} = [ keys %{$depends{$page}} ];
}
- if (exists $depends_exact{$page}) {
- $index{page}{$src}{depends_exact} = [ keys %{$depends_exact{$page}} ];
+ if (exists $depends_simple{$page}) {
+ $index{page}{$src}{depends_simple} = [ keys %{$depends_simple{$page}} ];
}
if (exists $pagestate{$page}) {
if ($pagespec =~ /$config{wiki_file_regexp}/ &&
$pagespec !~ /[\s*?()!]/) {
# a simple dependency, which can be matched by string eq
- $depends_exact{$page}{lc $pagespec} = 1;
+ $depends_simple{$page}{lc $pagespec} = 1;
return 1;
}
if (defined $type) {
my $page=pagename($file);
delete $depends{$page};
- delete $depends_exact{$page};
+ delete $depends_simple{$page};
will_render($page, htmlpage($page), 1);
return if $type=~/^_/;
}
else {
delete $depends{$file};
- delete $depends_exact{$file};
+ delete $depends_simple{$file};
will_render($file, $file, 1);
if ($config{hardlink}) {
# internal pages are not rendered
my $page=pagename($file);
delete $depends{$page};
- delete $depends_exact{$page};
+ delete $depends_simple{$page};
foreach my $old (@{$renderedfiles{$page}}) {
delete $destsources{$old};
}
my $p=pagename($f);
my $reason = undef;
- if (exists $depends_exact{$p}) {
- foreach my $d (keys %{$depends_exact{$p}}) {
+ if (exists $depends_simple{$p}) {
+ foreach my $d (keys %{$depends_simple{$p}}) {
if (exists $lcchanged{$d}) {
$reason = $d;
last;