perltidy run prior to branching

src/bin/pg_basebackup/t/010_pg_basebackup.pl

@@ -552,7 +552,10 @@ rmtree("$tempdir/backup_corrupt3");
 
 # do not verify checksums, should return ok
 $node->command_ok(
-	[ 'pg_basebackup', '-D', "$tempdir/backup_corrupt4", '--no-verify-checksums' ],
+	[
+		'pg_basebackup',            '-D',
+		"$tempdir/backup_corrupt4", '--no-verify-checksums'
+	],
 	'pg_basebackup with -k does not report checksum mismatch');
 rmtree("$tempdir/backup_corrupt4");
 

src/tools/msvc/dummylib/Win32/Registry.pm

@@ -6,7 +6,7 @@ use warnings;
 use vars qw($HKEY_LOCAL_MACHINE);
 
 use Exporter ();
-our (@EXPORT,@ISA);
+our (@EXPORT, @ISA);
 @ISA    = qw(Exporter);
 @EXPORT = qw($HKEY_LOCAL_MACHINE);
 

src/tools/msvc/dummylib/Win32API/File.pm

@@ -4,9 +4,9 @@ use strict;
 use warnings;
 
 use constant { SEM_FAILCRITICALERRORS => 1, SEM_NOGPFAULTERRORBOX => 2 };
-sub SetErrormode {};
+sub SetErrormode { }
 use Exporter;
-our(@ISA,@EXPORT_OK,%EXPORT_TAGS);
+our (@ISA, @EXPORT_OK, %EXPORT_TAGS);
 @ISA         = qw(Exporter);
 @EXPORT_OK   = qw(SetErrorMode SEM_FAILCRITICALERRORS SEM_NOGPFAULTERRORBOX);
 %EXPORT_TAGS = (SEM_ => [qw(SEM_FAILCRITICALERRORS SEM_NOGPFAULTERRORBOX)]);