database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-07-27 12:41:57 +03:00
Code Activity

Clean up Perl code according to perlcritic

Browse Source 
Fix all perlcritic warnings of severity level 5, except in
src/backend/utils/Gen_dummy_probes.pl, which is automatically generated.

Reviewed-by: Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Reviewed-by: Daniel Gustafsson <daniel@yesql.se>
This commit is contained in:
Peter Eisentraut
2017-03-26 22:24:13 -04:00
parent de4da168d5
commit facde2a98f
41 changed files with 360 additions and 358 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
contrib/intarray/bench/create_test.pl
View File

@ -15,8 +15,8 @@ create table message_section_map (
EOT
open(MSG, ">message.tmp") || die;
open(MAP, ">message_section_map.tmp") || die;
open(my $msg, '>', "message.tmp") || die;
open(my $map, '>', "message_section_map.tmp") || die;
srand(1);
@ -42,16 +42,16 @@ foreach my $i (1 .. 200000)
}
if ($#sect < 0 || rand() < 0.1)
{
print MSG "$i\t\\N\n";
print $msg "$i\t\\N\n";
}
else
{
print MSG "$i\t{" . join(',', @sect) . "}\n";
map { print MAP "$i\t$_\n" } @sect;
print $msg "$i\t{" . join(',', @sect) . "}\n";
map { print $map "$i\t$_\n" } @sect;
}
}
close MAP;
close MSG;
close $map;
close $msg;
copytable('message');
copytable('message_section_map');
@ -79,8 +79,8 @@ sub copytable
my $t = shift;
print "COPY $t from stdin;\n";
open(FFF, "$t.tmp") || die;
while (<FFF>) { print; }
close FFF;
open(my $fff, '<', "$t.tmp") || die;
while (<$fff>) { print; }
close $fff;
print "\\.\n";
}