scripts: Add a space after comma

scripts/Dpkg/Changelog.pm

@@ -168,7 +168,7 @@ sub get_parse_errors {
 	my $res = '';
 	foreach my $e (@{$self->{parse_errors}}) {
 	    if ($e->[3]) {
-		$res .= report(_g('warning'),_g("%s(l%s): %s\nLINE: %s"), @$e );
+		$res .= report(_g('warning'), _g("%s(l%s): %s\nLINE: %s"), @$e);
 	    } else {
 		$res .= report(_g('warning'), _g('%s(l%s): %s'), @$e);
 	    }

scripts/Dpkg/Source/Functions.pm

@@ -33,7 +33,7 @@ sub erasedir {
         return if $! == ENOENT;
         syserr(_g('cannot stat directory %s (before removal)'), $dir);
     }
-    system 'rm','-rf','--',$dir;
+    system 'rm', '-rf', '--', $dir;
     subprocerr("rm -rf $dir") if $?;
     if (not stat($dir)) {
         return if $! == ENOENT;

scripts/dpkg-genchanges.pl

@@ -477,11 +477,11 @@ if (length($fields->{'Binary'}) > 980) {
     $fields->{'Binary'} =~ s/(.{0,980}) /$1\n/g;
 }
 
-unshift(@archvalues,'source') unless is_binaryonly;
+unshift @archvalues, 'source' unless is_binaryonly;
 @archvalues = ('all') if $include == BUILD_ARCH_INDEP;
-@archvalues = grep {!debarch_eq('all',$_)} @archvalues
+@archvalues = grep { !debarch_eq('all', $_) } @archvalues
     unless $include & BUILD_ARCH_INDEP;
-$fields->{'Architecture'} = join(' ',@archvalues);
+$fields->{'Architecture'} = join ' ', @archvalues;
 
 $fields->{'Built-For-Profiles'} = join ' ', get_build_profiles();
 

scripts/dpkg-scanpackages.pl

@@ -255,7 +255,7 @@ my @missingover=();
 my $records_written = 0;
 for my $p (sort keys %packages) {
     if (defined($override) and not defined($overridden{$p})) {
-        push(@missingover,$p);
+        push @missingover, $p;
     }
     for my $package (@{$packages{$p}}) {
          print("$package\n") or syserr(_g('failed when writing stdout'));

scripts/dpkg-shlibdeps.pl

@@ -538,7 +538,7 @@ foreach my $field (reverse @depfields) {
 # Replace old file by new one
 if (!$stdout) {
     close($fh) or syserr(_g('cannot close %s'), "$varlistfile.new");
-    rename("$varlistfile.new",$varlistfile)
+    rename "$varlistfile.new", $varlistfile
         or syserr(_g("install new varlist file \`%s'"), $varlistfile);
 }
 

scripts/dpkg-source.pl

@@ -268,7 +268,7 @@ if ($options{opmode} =~ /^(-b|--print-format|--(before|after)-build|--commit)$/)
 	my $type = $pkg->{'Package-Type'} ||
 	        $pkg->get_custom_field('Package-Type') || 'deb';
 	push @pkglist, sprintf('%s %s %s %s', $p, $type, $sect, $prio);
-	push(@binarypackages,$p);
+	push @binarypackages, $p;
 	foreach (keys %{$pkg}) {
 	    my $v = $pkg->{$_};
             if (m/^Architecture$/) {

scripts/t/200_Dpkg_Shlibs.t

@@ -527,7 +527,7 @@ is_deeply(\@tmp, [], 'no LOST symbols if all patterns matched.');
 is_deeply(\@tmp, [], 'no NEW symbols if all patterns matched.');
 
 # Pattern resolution order: aliases (c++, symver), generic
-$sym = $sym_file->lookup_symbol('SYMVER_1@SYMVER_1','libpatterns.so.1');
+$sym = $sym_file->lookup_symbol('SYMVER_1@SYMVER_1', 'libpatterns.so.1');
 is($sym->{minver}, '1', 'specific SYMVER_1 symbol');
 
 $sym = $sym_file->lookup_symbol('_ZN3NSB6Symver14symver_method1Ev@SYMVER_1', 'libpatterns.so.1');

scripts/t/750_Dpkg_Substvars.t

@@ -38,7 +38,7 @@ is($s->get('var4'), undef, 'no var4');
 
 # overriding
 $s->set('var1', 'New value');
-is($s->get('var1'), 'New value','var1 updated');
+is($s->get('var1'), 'New value', 'var1 updated');
 
 # deleting
 $s->delete('var3');
@@ -53,7 +53,7 @@ is($s->get('dpkg:Version'), $Dpkg::PROGVERSION, 'dpkg version 1');
 # special variables
 is($s->get('Arch'), undef, 'no arch');
 $s->set_arch_substvars();
-is($s->get('Arch'), get_host_arch(),'arch');
+is($s->get('Arch'), get_host_arch(), 'arch');
 
 is($s->get($_), undef, 'no ' . $_) for qw/binary:Version source:Version source:Upstream-Version/;
 $s->set_version_substvars('1:2.3.4~5-6.7.8~nmu9', '1:2.3.4~5-6.7.8~nmu9+bin0');