database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-07-07 00:36:50 +03:00
Code Activity

Pre-beta mechanical code beautification.

Browse Source 
Run pgindent, pgperltidy, and reformat-dat-files.
I manually fixed a couple of comments that pgindent uglified.
This commit is contained in:
Tom Lane
2022-05-12 15:17:30 -04:00
parent 93909599cd
commit 23e7b38bfe
287 changed files with 5193 additions and 3549 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/test/perl/PostgreSQL/Test/SimpleTee.pm
View File

@ -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;