optimize for common case where list is not changed
parent
d932d5ab00
commit
46e0c5742c
|
@ -773,7 +773,7 @@ sub refresh () {
|
|||
my %existingfiles;
|
||||
run_hooks(needsbuild => sub {
|
||||
my $ret=shift->($changed, [@$del, @$internal_del]);
|
||||
if (ref $ret eq 'ARRAY') {
|
||||
if (ref $ret eq 'ARRAY' && $ret != $changed) {
|
||||
if (! %existingfiles) {
|
||||
foreach my $f (@$files) {
|
||||
$existingfiles{$f}=1;
|
||||
|
|
Loading…
Reference in New Issue