Compare commits
No commits in common. "5fd96553f5157a276e6e90e4768e90f2f9f14783" and "60186650cd4d7ed58c85e6bf43ce3e3db95b1176" have entirely different histories.
5fd96553f5
...
60186650cd
2 changed files with 2 additions and 13 deletions
|
@ -1,8 +1,3 @@
|
||||||
1.2.5 (2023-01-04)
|
|
||||||
------------------
|
|
||||||
|
|
||||||
- bugfix release
|
|
||||||
|
|
||||||
1.2.4 (2022-12-23)
|
1.2.4 (2022-12-23)
|
||||||
------------------
|
------------------
|
||||||
|
|
||||||
|
|
10
mmdebstrap
10
mmdebstrap
|
@ -1,6 +1,6 @@
|
||||||
#!/usr/bin/perl
|
#!/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
|
# Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||||
# of this software and associated documentation files (the "Software"), to
|
# of this software and associated documentation files (the "Software"), to
|
||||||
|
@ -23,7 +23,7 @@
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
our $VERSION = '1.2.5';
|
our $VERSION = '1.2.4';
|
||||||
|
|
||||||
use English;
|
use English;
|
||||||
use Getopt::Long;
|
use Getopt::Long;
|
||||||
|
@ -4489,7 +4489,6 @@ 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) {
|
||||||
|
@ -4497,15 +4496,10 @@ 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) {
|
||||||
|
|
Loading…
Reference in a new issue