$page = pagename($file);
if (! exists $pagesources{$page} &&
file_pruned($file)) {
+ no warnings 'once';
$File::Find::prune=1;
return;
}
else {
push @files, $f;
if ($pages{$page}) {
- debug(sprintf(gettext("%s has multiple possible source pages"), $page));
+ debug(sprintf(gettext("%s has multiple possible source files; one will be chosen at random"), $page));
}
$pages{$page}=1;
}
}
push @files, $f;
if ($pages{$page}) {
- debug(sprintf(gettext("%s has multiple possible source pages"), $page));
+ debug(sprintf(gettext("%s has multiple possible source files; one will be chosen at random"), $page));
}
$pages{$page}=1;
}