Compare commits

..

No commits in common. "5fd96553f5157a276e6e90e4768e90f2f9f14783" and "60186650cd4d7ed58c85e6bf43ce3e3db95b1176" have entirely different histories.

2 changed files with 2 additions and 13 deletions

View file

@ -1,8 +1,3 @@
1.2.5 (2023-01-04)
------------------
- bugfix release
1.2.4 (2022-12-23)
------------------

View file

@ -1,6 +1,6 @@
#!/usr/bin/perl
#
# © 2018 - 2023 Johannes Schauer Marin Rodrigues <josch@mister-muffin.de>
# © 2018 - 2022 Johannes Schauer Marin Rodrigues <josch@mister-muffin.de>
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to
@ -23,7 +23,7 @@
use strict;
use warnings;
our $VERSION = '1.2.5';
our $VERSION = '1.2.4';
use English;
use Getopt::Long;
@ -4489,7 +4489,6 @@ sub main() {
# gather all files starting with special prefixes into the
# respective keys of a hash
my %scripts;
my $count = 0;
opendir(my $dh, $opt_value)
or error "Can't opendir($opt_value): $!";
while (my $entry = readdir $dh) {
@ -4497,15 +4496,10 @@ sub main() {
my $hook ('setup', 'extract', 'essential', 'customize') {
if ($entry =~ m/^\Q$hook\E/ and -x "$opt_value/$entry") {
push @{ $scripts{$hook} }, "$opt_value/$entry";
$count += 1;
}
}
}
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
# list of hooks
foreach my $hook (keys %scripts) {