From 12f41ad33f123238da9098c30cfc0c4ccd992651 Mon Sep 17 00:00:00 2001
From: Johannes 'josch' Schauer <josch@mister-muffin.de>
Date: Mon, 17 Aug 2020 18:57:36 +0200
Subject: [PATCH] fix syntax for perltidy

---
 mmdebstrap | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/mmdebstrap b/mmdebstrap
index 1ed695c..2967e88 100755
--- a/mmdebstrap
+++ b/mmdebstrap
@@ -3501,16 +3501,17 @@ sub main() {
             while (my $entry = readdir $dh) {
                 foreach
                   my $hook ('setup', 'extract', 'essential', 'customize') {
-                      if ($entry =~ m/^\Q$hook\E/ and -x "$opt_value/$entry") {
-                          push @{$scripts{$hook}}, "$opt_value/$entry";
-                      }
+                    if ($entry =~ m/^\Q$hook\E/ and -x "$opt_value/$entry") {
+                        push @{ $scripts{$hook} }, "$opt_value/$entry";
+                    }
                 }
             }
             closedir($dh);
             # 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