diff options
author | Peter Eisentraut <peter_e@gmx.net> | 2018-04-26 11:52:52 -0400 |
---|---|---|
committer | Peter Eisentraut <peter_e@gmx.net> | 2018-04-27 11:37:43 -0400 |
commit | d4f16d50713077e69f8833df6b99d1eab0be1c33 (patch) | |
tree | f9acf7a056f6db6ba9b4e0059710276bb40d37aa /src/backend/utils | |
parent | a2ada08d4c0afa2d1f678ba7fb03ccc065f3a57b (diff) |
perltidy: Add option --nooutdent-long-quotes
Diffstat (limited to 'src/backend/utils')
-rw-r--r-- | src/backend/utils/Gen_dummy_probes.pl | 10 | ||||
-rw-r--r-- | src/backend/utils/Gen_fmgrtab.pl | 8 | ||||
-rw-r--r-- | src/backend/utils/mb/Unicode/convutils.pm | 8 |
3 files changed, 13 insertions, 13 deletions
diff --git a/src/backend/utils/Gen_dummy_probes.pl b/src/backend/utils/Gen_dummy_probes.pl index 0458c43cc3b..395f17881b8 100644 --- a/src/backend/utils/Gen_dummy_probes.pl +++ b/src/backend/utils/Gen_dummy_probes.pl @@ -100,35 +100,35 @@ sub Run() # s/([^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\})/(INT1, INT2, INT3, INT4)/ { $s = -s /\([^,)]+, [^,)]+, [^,)]+, [^,)]+\)/(INT1, INT2, INT3, INT4)/s; + s /\([^,)]+, [^,)]+, [^,)]+, [^,)]+\)/(INT1, INT2, INT3, INT4)/s; $CondReg ||= $s; } # s/([^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\})/(INT1, INT2, INT3, INT4, INT5)/ { $s = -s /\([^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+\)/(INT1, INT2, INT3, INT4, INT5)/s; + s /\([^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+\)/(INT1, INT2, INT3, INT4, INT5)/s; $CondReg ||= $s; } # s/([^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\})/(INT1, INT2, INT3, INT4, INT5, INT6)/ { $s = -s /\([^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+\)/(INT1, INT2, INT3, INT4, INT5, INT6)/s; + s /\([^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+\)/(INT1, INT2, INT3, INT4, INT5, INT6)/s; $CondReg ||= $s; } # s/([^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\})/(INT1, INT2, INT3, INT4, INT5, INT6, INT7)/ { $s = -s /\([^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+\)/(INT1, INT2, INT3, INT4, INT5, INT6, INT7)/s; + s /\([^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+\)/(INT1, INT2, INT3, INT4, INT5, INT6, INT7)/s; $CondReg ||= $s; } # s/([^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\}, [^,)]\{1,\})/(INT1, INT2, INT3, INT4, INT5, INT6, INT7, INT8)/ { $s = -s /\([^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+\)/(INT1, INT2, INT3, INT4, INT5, INT6, INT7, INT8)/s; + s /\([^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+, [^,)]+\)/(INT1, INT2, INT3, INT4, INT5, INT6, INT7, INT8)/s; $CondReg ||= $s; } diff --git a/src/backend/utils/Gen_fmgrtab.pl b/src/backend/utils/Gen_fmgrtab.pl index 3ba1611f18b..2aca8ac9098 100644 --- a/src/backend/utils/Gen_fmgrtab.pl +++ b/src/backend/utils/Gen_fmgrtab.pl @@ -120,7 +120,7 @@ open my $tfh, '>', $tabfile . $tmpext or die "Could not open $tabfile$tmpext: $!"; print $ofh -qq|/*------------------------------------------------------------------------- + qq|/*------------------------------------------------------------------------- * * fmgroids.h * Macros that define the OIDs of built-in functions. @@ -157,7 +157,7 @@ qq|/*------------------------------------------------------------------------- |; print $pfh -qq|/*------------------------------------------------------------------------- + qq|/*------------------------------------------------------------------------- * * fmgrprotos.h * Prototypes for built-in functions. @@ -183,7 +183,7 @@ qq|/*------------------------------------------------------------------------- |; print $tfh -qq|/*------------------------------------------------------------------------- + qq|/*------------------------------------------------------------------------- * * fmgrtab.c * The function manager's table of internal functions. @@ -230,7 +230,7 @@ my $fmgr_count = 0; foreach my $s (sort { $a->{oid} <=> $b->{oid} } @fmgr) { print $tfh -" { $s->{oid}, \"$s->{prosrc}\", $s->{nargs}, $bmap{$s->{strict}}, $bmap{$s->{retset}}, $s->{prosrc} }"; + " { $s->{oid}, \"$s->{prosrc}\", $s->{nargs}, $bmap{$s->{strict}}, $bmap{$s->{retset}}, $s->{prosrc} }"; $fmgr_builtin_oid_index[ $s->{oid} ] = $fmgr_count++; diff --git a/src/backend/utils/mb/Unicode/convutils.pm b/src/backend/utils/mb/Unicode/convutils.pm index 69494d0df32..64abcfd2cb3 100644 --- a/src/backend/utils/mb/Unicode/convutils.pm +++ b/src/backend/utils/mb/Unicode/convutils.pm @@ -168,7 +168,7 @@ sub print_from_utf8_combined_map printf $out "\n/* Combined character map */\n"; printf $out -"static const pg_utf_to_local_combined ULmap${charset}_combined[ %d ] = {", + "static const pg_utf_to_local_combined ULmap${charset}_combined[ %d ] = {", scalar(@$table); my $first = 1; foreach my $i (sort { $a->{utf8} <=> $b->{utf8} } @$table) @@ -202,7 +202,7 @@ sub print_to_utf8_combined_map printf $out "\n/* Combined character map */\n"; printf $out -"static const pg_local_to_utf_combined LUmap${charset}_combined[ %d ] = {", + "static const pg_local_to_utf_combined LUmap${charset}_combined[ %d ] = {", scalar(@$table); my $first = 1; @@ -613,7 +613,7 @@ sub print_radix_table if ($seg->{overlaid_trail_zeros}) { printf $out -" /* $seg->{overlaid_trail_zeros} trailing zero values shared with next segment */\n"; + " /* $seg->{overlaid_trail_zeros} trailing zero values shared with next segment */\n"; } } @@ -728,7 +728,7 @@ sub make_charmap if (defined $charmap{$src}) { printf STDERR -"Error: duplicate source code on %s:%d: 0x%04x => 0x%04x, 0x%04x\n", + "Error: duplicate source code on %s:%d: 0x%04x => 0x%04x, 0x%04x\n", $c->{f}, $c->{l}, $src, $charmap{$src}, $dst; exit; } |