scripts: Add a space after flow control statements

scripts/Dpkg/Changelog/Entry/Debian.pm

@@ -298,7 +298,7 @@ sub find_closes {
 
     while ($changes &&
            ($changes =~ /closes:\s*(?:bug)?\#?\s?\d+(?:,\s*(?:bug)?\#?\s?\d+)*/ig)) {
-        $closes{$_} = 1 foreach($& =~ /\#?\s?(\d+)/g);
+        $closes{$_} = 1 foreach ($& =~ /\#?\s?(\d+)/g);
     }
 
     my @closes = sort { $a <=> $b } keys %closes;

scripts/Dpkg/Changelog/Parse.pm

@@ -101,7 +101,7 @@ sub changelog_parse {
     my $changelogfile = $options{file};
 
     # Extract the format from the changelog file if possible
-    unless($force or ($changelogfile eq '-')) {
+    unless ($force or ($changelogfile eq '-')) {
 	local $_;
 
 	open(my $format_fh, '-|', 'tail', '-n', '40', $changelogfile)

scripts/Dpkg/Shlibs/SymbolFile.pm

@@ -498,7 +498,8 @@ sub get_smallest_version {
     my ($self, $soname, $dep_id) = @_;
     $dep_id //= 0;
     my $so_object = $self->get_object($soname);
-    return $so_object->{minver_cache}[$dep_id] if(defined($so_object->{minver_cache}[$dep_id]));
+    return $so_object->{minver_cache}[$dep_id]
+        if defined $so_object->{minver_cache}[$dep_id];
     my $minver;
     foreach my $sym ($self->get_symbols($so_object)) {
         next if $dep_id != $sym->{dep_id};

scripts/Dpkg/Source/Package.pm

@@ -590,7 +590,7 @@ sub write_dsc {
 	$fields->{$f} = $opts{override}{$f};
     }
 
-    unless($opts{nocheck}) {
+    unless ($opts{nocheck}) {
         foreach my $f (qw(Source Version)) {
             unless (defined($fields->{$f})) {
                 error(_g('missing information for critical output field %s'), $f);

scripts/Dpkg/Source/Patch.pm

@@ -405,7 +405,7 @@ sub analyze {
 	}
 	$diff_count++;
 	# read file header (---/+++ pair)
-	unless(s/^--- //) {
+	unless (s/^--- //) {
 	    error(_g("expected ^--- in line %d of diff `%s'"), $., $diff);
 	}
         $path{old} = $_ = _strip_ts($_);
@@ -505,7 +505,7 @@ sub analyze {
 	    }
 	    $hunk++;
 	}
-	unless($hunk) {
+	unless ($hunk) {
 	    error(_g("expected ^\@\@ at line %d of diff `%s'"), $., $diff);
 	}
     }

scripts/Dpkg/Vendor/Ubuntu.pm

@@ -168,7 +168,7 @@ sub find_launchpad_closes {
 
     while ($changes &&
           ($changes =~ /lp:\s+\#\d+(?:,\s*\#\d+)*/ig)) {
-        $closes{$_} = 1 foreach($& =~ /\#?\s?(\d+)/g);
+        $closes{$_} = 1 foreach ($& =~ /\#?\s?(\d+)/g);
     }
 
     my @closes = sort { $a <=> $b } keys %closes;

scripts/dpkg-gensymbols.pl

@@ -233,7 +233,7 @@ if ($stdout) {
                      with_deprecated => $verbose_output);
 } else {
     unless (defined($output)) {
-	unless($symfile->is_empty()) {
+	unless ($symfile->is_empty()) {
 	    $output = "$packagebuilddir/DEBIAN/symbols";
 	    mkdir("$packagebuilddir/DEBIAN") if not -e "$packagebuilddir/DEBIAN";
 	}

scripts/dpkg-scansources.pl

@@ -281,7 +281,7 @@ sub process_dsc {
     # Process extra override
     if (exists $extra_override{$source}) {
         my ($field, $value);
-        while(($field, $value) = each %{$extra_override{$source}}) {
+        while (($field, $value) = each %{$extra_override{$source}}) {
             $fields->{$field} = $value;
         }
     }