Finish pgindent run for 9.6: Perl files.

Author: nmisch

contrib/bloom/t/001_wal.pl

@@ -16,7 +16,7 @@ sub test_index_replay
 	# Wait for standby to catch up
 	my $applname = $node_standby->name;
 	my $caughtup_query =
-		"SELECT pg_current_xlog_location() <= write_location FROM pg_stat_replication WHERE application_name = '$applname';";
+"SELECT pg_current_xlog_location() <= write_location FROM pg_stat_replication WHERE application_name = '$applname';";
 	$node_master->poll_query_until('postgres', $caughtup_query)
 	  or die "Timed out while waiting for standby 1 to catch up";
 
@@ -56,20 +56,25 @@ sub test_index_replay
 # Create some bloom index on master
 $node_master->psql("postgres", "CREATE EXTENSION bloom;");
 $node_master->psql("postgres", "CREATE TABLE tst (i int4, t text);");
-$node_master->psql("postgres", "INSERT INTO tst SELECT i%10, substr(md5(i::text), 1, 1) FROM generate_series(1,100000) i;");
-$node_master->psql("postgres", "CREATE INDEX bloomidx ON tst USING bloom (i, t) WITH (col1 = 3);");
+$node_master->psql("postgres",
+"INSERT INTO tst SELECT i%10, substr(md5(i::text), 1, 1) FROM generate_series(1,100000) i;"
+);
+$node_master->psql("postgres",
+	"CREATE INDEX bloomidx ON tst USING bloom (i, t) WITH (col1 = 3);");
 
 # Test that queries give same result
 test_index_replay('initial');
 
 # Run 10 cycles of table modification. Run test queries after each modification.
-for my $i (1..10)
+for my $i (1 .. 10)
 {
 	$node_master->psql("postgres", "DELETE FROM tst WHERE i = $i;");
 	test_index_replay("delete $i");
 	$node_master->psql("postgres", "VACUUM tst;");
 	test_index_replay("vacuum $i");
 	my ($start, $end) = (100001 + ($i - 1) * 10000, 100000 + $i * 10000);
-	$node_master->psql("postgres", "INSERT INTO tst SELECT i%10, substr(md5(i::text), 1, 1) FROM generate_series($start,$end) i;");
+	$node_master->psql("postgres",
+"INSERT INTO tst SELECT i%10, substr(md5(i::text), 1, 1) FROM generate_series($start,$end) i;"
+	);
 	test_index_replay("insert $i");
 }

src/backend/storage/lmgr/generate-lwlocknames.pl

@@ -7,7 +7,7 @@
 use strict;
 
 my $lastlockidx = -1;
-my $continue = "\n";
+my $continue    = "\n";
 
 open my $lwlocknames, $ARGV[0] or die;
 
@@ -18,7 +18,7 @@
 open C, '>', $ctmp or die "Could not open $ctmp: $!";
 
 my $autogen =
-	"/* autogenerated from src/backend/storage/lmgr/lwlocknames.txt, do not edit */\n";
+"/* autogenerated from src/backend/storage/lmgr/lwlocknames.txt, do not edit */\n";
 print H $autogen;
 print H "/* there is deliberately not an #ifndef LWLOCKNAMES_H here */\n\n";
 print C $autogen, "\n";
@@ -38,7 +38,7 @@
 
 	(my $lockname, my $lockidx) = ($1, $2);
 
-	die "lwlocknames.txt not in order" if $lockidx < $lastlockidx;
+	die "lwlocknames.txt not in order"   if $lockidx < $lastlockidx;
 	die "lwlocknames.txt has duplicates" if $lockidx == $lastlockidx;
 
 	while ($lastlockidx < $lockidx - 1)
@@ -49,7 +49,7 @@
 	}
 	printf C "%s	\"%s\"", $continue, $lockname;
 	$lastlockidx = $lockidx;
-	$continue = ",\n";
+	$continue    = ",\n";
 
 	print H "#define $lockname (&MainLWLockArray[$lockidx].lock)\n";
 }

src/backend/utils/Gen_dummy_probes.pl

@@ -224,6 +224,7 @@ ()
 	{
 		if (ref($q))
 		{
+
 			# flush open w files so that reading this file gets it all
 			if (exists($wFiles{$$q}) && $wFiles{$$q} ne '')
 			{

src/backend/utils/mb/Unicode/UCS_to_SJIS.pl

@@ -54,8 +54,8 @@
 			|| (   ($code >= 0x879a)
 				&& ($code <= 0x879c)))
 		{
-			printf STDERR
-			  "Warning: duplicate UTF8: UCS=0x%04x SJIS=0x%04x\n", $ucs,
+			printf STDERR "Warning: duplicate UTF8: UCS=0x%04x SJIS=0x%04x\n",
+			  $ucs,
 			  $code;
 			next;
 		}

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

@@ -114,7 +114,8 @@
 	mkdir "$tempdir/tblspc1";
 	$node->safe_psql('postgres',
 		"CREATE TABLESPACE tblspc1 LOCATION '$shorter_tempdir/tblspc1';");
-	$node->safe_psql('postgres', "CREATE TABLE test1 (a int) TABLESPACE tblspc1;");
+	$node->safe_psql('postgres',
+		"CREATE TABLE test1 (a int) TABLESPACE tblspc1;");
 	$node->command_ok([ 'pg_basebackup', '-D', "$tempdir/tarbackup2", '-Ft' ],
 		'tar format with tablespaces');
 	ok(-f "$tempdir/tarbackup2/base.tar", 'backup tar was created');

src/bin/pg_dump/t/001_basic.pl

@@ -23,14 +23,22 @@
 command_exit_is([ 'pg_dump', 'qqq', 'abc' ],
 	1, 'pg_dump: too many command-line arguments (first is "asd")');
 
-command_exit_is([ 'pg_dump', '-s', '-a' ],
-	1, 'pg_dump: options -s/--schema-only and -a/--data-only cannot be used together');
-
-command_exit_is([ 'pg_dump', '-c', '-a' ],
-	1, 'pg_dump: options -c/--clean and -a/--data-only cannot be used together');
-
-command_exit_is([ 'pg_dump', '--inserts', '-o' ],
-	1, 'pg_dump: options --inserts/--column-inserts and -o/--oids cannot be used together');
+command_exit_is(
+	[ 'pg_dump', '-s', '-a' ],
+	1,
+'pg_dump: options -s/--schema-only and -a/--data-only cannot be used together'
+);
+
+command_exit_is(
+	[ 'pg_dump', '-c', '-a' ],
+	1,
+	'pg_dump: options -c/--clean and -a/--data-only cannot be used together');
+
+command_exit_is(
+	[ 'pg_dump', '--inserts', '-o' ],
+	1,
+'pg_dump: options --inserts/--column-inserts and -o/--oids cannot be used together'
+);
 
 command_exit_is([ 'pg_dump', '--if-exists' ],
 	1, 'pg_dump: option --if-exists requires option -c/--clean');