warn if hook directory contains no executable scripts

This commit is contained in:
Johannes Schauer Marin Rodrigues 2023-01-04 07:23:56 +01:00
parent 60186650cd
commit d4eb268795
Signed by untrusted user: josch
GPG key ID: F2CBA5C78FBD83E1

View file

@ -4489,6 +4489,7 @@ sub main() {
# gather all files starting with special prefixes into the # gather all files starting with special prefixes into the
# respective keys of a hash # respective keys of a hash
my %scripts; my %scripts;
my $count = 0;
opendir(my $dh, $opt_value) opendir(my $dh, $opt_value)
or error "Can't opendir($opt_value): $!"; or error "Can't opendir($opt_value): $!";
while (my $entry = readdir $dh) { while (my $entry = readdir $dh) {
@ -4496,10 +4497,15 @@ sub main() {
my $hook ('setup', 'extract', 'essential', 'customize') { my $hook ('setup', 'extract', 'essential', 'customize') {
if ($entry =~ m/^\Q$hook\E/ and -x "$opt_value/$entry") { if ($entry =~ m/^\Q$hook\E/ and -x "$opt_value/$entry") {
push @{ $scripts{$hook} }, "$opt_value/$entry"; push @{ $scripts{$hook} }, "$opt_value/$entry";
$count += 1;
} }
} }
} }
closedir($dh); closedir($dh);
if ($count == 0) {
warning "No executable hook scripts found in $opt_value";
return;
}
# add the sorted list associated with each key to the respective # add the sorted list associated with each key to the respective
# list of hooks # list of hooks
foreach my $hook (keys %scripts) { foreach my $hook (keys %scripts) {