fix syntax for perltidy

4 years ago · 12f41ad33f
parent 075645289f
commit 12f41ad33f
1 changed files with 5 additions and 4 deletions
--- a/5
+++ b/5
@ -3502,7 +3502,7 @@ sub main() {
                foreach
                  my $hook ('setup', 'extract', 'essential', 'customize') {
                    if ($entry =~ m/^\Q$hook\E/ and -x "$opt_value/$entry") {
-                          push @{$scripts{$hook}}, "$opt_value/$entry";
+                        push @{ $scripts{$hook} }, "$opt_value/$entry";
                    }
                }
            }
@ -3510,7 +3510,8 @@ sub main() {
            # add the sorted list associated with each key to the respective
            # list of hooks
            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