zulcss/mmdebstrap
1
0
Fork 0
forked from josch/mmdebstrap
Code Pull requests Activity

fix syntax for perltidy

Browse source
This commit is contained in:
Johannes 'josch' Schauer 2020-08-17 18:57:36 +02:00
parent 075645289f
commit 12f41ad33f
Signed by untrusted user: josch
GPG key ID: F2CBA5C78FBD83E1
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
mmdebstrap
View file

@ -3501,16 +3501,17 @@ sub main() {
while (my $entry = readdir $dh) { while (my $entry = readdir $dh) {
foreach foreach
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";
} }
} }
} }
closedir($dh); closedir($dh);
# 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) {
push @{ $options->{"${hook}_hook"} }, (sort @{$scripts{$hook}}); push @{ $options->{"${hook}_hook"} },
(sort @{ $scripts{$hook} });
} }
}, },
# Sometimes --simulate fails even though non-simulate succeeds because # Sometimes --simulate fails even though non-simulate succeeds because