From 23e7b38bfe396f919fdb66057174d29e17086418 Mon Sep 17 00:00:00 2001 From: Tom Lane Date: Thu, 12 May 2022 15:17:30 -0400 Subject: Pre-beta mechanical code beautification. Run pgindent, pgperltidy, and reformat-dat-files. I manually fixed a couple of comments that pgindent uglified. --- src/test/perl/PostgreSQL/Test/SimpleTee.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/test/perl/PostgreSQL/Test/SimpleTee.pm') diff --git a/src/test/perl/PostgreSQL/Test/SimpleTee.pm b/src/test/perl/PostgreSQL/Test/SimpleTee.pm index 7cb8591fed..ec13714c33 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; -- cgit v1.2.1