}
delete $typedlinks{$page};
- run_hooks(scan => sub {
- shift->(
- page => $page,
- content => $content,
- );
- });
-
# Preprocess in scan-only mode.
preprocess($page, $page, $content, 1);
- run_hooks(rescan => sub {
+ run_hooks(scan => sub {
shift->(
page => $page,
content => $content,
);
});
-
}
else {
will_render($file, $file, 1);
my ($new, $internal_new)=find_new_files($files);
my ($del, $internal_del)=find_del_files($pages);
my ($changed, $internal_changed)=find_changed($files);
- run_hooks(needsbuild => sub { shift->($changed) });
+ run_hooks(needsbuild => sub {
+ my $ret=shift->($changed, [@$del, @$internal_del]);
+ $changed=$ret if ref $ret eq 'ARRAY';
+ });
my $oldlink_targets=calculate_old_links($changed, $del);
foreach my $file (@$changed) {