Pre-beta mechanical code beautification.

Run pgindent, pgperltidy, and reformat-dat-files.
I manually fixed a couple of comments that pgindent uglified.

1 files changed, 4 insertions, 4 deletions

diff --git a/src/test/perl/PostgreSQL/Test/SimpleTee.pm b/src/test/perl/PostgreSQL/Test/SimpleTee.pm
index 7cb8591fed2..ec13714c331 100644
--- a/src/test/perl/PostgreSQL/Test/SimpleTee.pm
+++ b/src/test/perl/PostgreSQL/Test/SimpleTee.pm
@@ -27,13 +27,13 @@ BEGIN { $last_time = time; }
 
 sub _time_str
 {
-	my $tm = time;
+	my $tm   = time;
 	my $diff = $tm - $last_time;
 	$last_time = $tm;
 	my ($sec, $min, $hour) = localtime($tm);
 	my $msec = int(1000 * ($tm - int($tm)));
 	return sprintf("[%.2d:%.2d:%.2d.%.3d](%.3fs) ",
-				   $hour, $min, $sec, $msec, $diff);
+		$hour, $min, $sec, $msec, $diff);
 }
 
 sub TIEHANDLE
@@ -50,11 +50,11 @@ sub PRINT
 	# the original stdout, which is what PROVE sees. Additional decorations
 	# confuse it, so only put out the time string on files after the first.
 	my $skip = 1;
-	my $ts = _time_str;
+	my $ts   = _time_str;
 	for my $fh (@$self)
 	{
 		print $fh ($skip ? "" : $ts), @_ or $ok = 0;
-		$fh->flush   or $ok = 0;
+		$fh->flush or $ok = 0;
 		$skip = 0;
 	}
 	return $ok;