move File::Find control back into its code blocks
Ok, this is longer, but features less scary action at a distance.master
parent
f78e6798aa
commit
831b891abd
|
@ -291,7 +291,6 @@ sub verify_src_file ($$) {
|
||||||
my $page = pagename($file);
|
my $page = pagename($file);
|
||||||
if (! exists $pagesources{$page} &&
|
if (! exists $pagesources{$page} &&
|
||||||
file_pruned($file)) {
|
file_pruned($file)) {
|
||||||
$File::Find::prune=1;
|
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -318,6 +317,9 @@ sub find_src_files () {
|
||||||
}
|
}
|
||||||
$pages{$page}=1;
|
$pages{$page}=1;
|
||||||
}
|
}
|
||||||
|
else {
|
||||||
|
$File::Find::prune=1;
|
||||||
|
}
|
||||||
},
|
},
|
||||||
}, $config{srcdir});
|
}, $config{srcdir});
|
||||||
foreach my $dir (@{$config{underlaydirs}}, $config{underlaydir}) {
|
foreach my $dir (@{$config{underlaydirs}}, $config{underlaydir}) {
|
||||||
|
@ -336,6 +338,9 @@ sub find_src_files () {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
else {
|
||||||
|
$File::Find::prune=1;
|
||||||
|
}
|
||||||
},
|
},
|
||||||
}, $dir);
|
}, $dir);
|
||||||
};
|
};
|
||||||
|
|
Loading…
Reference in New Issue