diff options
Diffstat (limited to 'src/backend')
| -rw-r--r-- | src/backend/storage/lmgr/generate-lwlocknames.pl | 8 | ||||
| -rw-r--r-- | src/backend/utils/Gen_dummy_probes.pl | 1 | ||||
| -rwxr-xr-x | src/backend/utils/mb/Unicode/UCS_to_SJIS.pl | 4 |
3 files changed, 7 insertions, 6 deletions
diff --git a/src/backend/storage/lmgr/generate-lwlocknames.pl b/src/backend/storage/lmgr/generate-lwlocknames.pl index c22fbb6cbb2..f79d17ca703 100644 --- a/src/backend/storage/lmgr/generate-lwlocknames.pl +++ b/src/backend/storage/lmgr/generate-lwlocknames.pl @@ -7,7 +7,7 @@ use warnings; use strict; my $lastlockidx = -1; -my $continue = "\n"; +my $continue = "\n"; open my $lwlocknames, $ARGV[0] or die; @@ -18,7 +18,7 @@ open H, '>', $htmp or die "Could not open $htmp: $!"; open C, '>', $ctmp or die "Could not open $ctmp: $!"; my $autogen = - "/* autogenerated from src/backend/storage/lmgr/lwlocknames.txt, do not edit */\n"; +"/* autogenerated from src/backend/storage/lmgr/lwlocknames.txt, do not edit */\n"; print H $autogen; print H "/* there is deliberately not an #ifndef LWLOCKNAMES_H here */\n\n"; print C $autogen, "\n"; @@ -38,7 +38,7 @@ while (<$lwlocknames>) (my $lockname, my $lockidx) = ($1, $2); - die "lwlocknames.txt not in order" if $lockidx < $lastlockidx; + die "lwlocknames.txt not in order" if $lockidx < $lastlockidx; die "lwlocknames.txt has duplicates" if $lockidx == $lastlockidx; while ($lastlockidx < $lockidx - 1) @@ -49,7 +49,7 @@ while (<$lwlocknames>) } printf C "%s \"%s\"", $continue, $lockname; $lastlockidx = $lockidx; - $continue = ",\n"; + $continue = ",\n"; print H "#define $lockname (&MainLWLockArray[$lockidx].lock)\n"; } diff --git a/src/backend/utils/Gen_dummy_probes.pl b/src/backend/utils/Gen_dummy_probes.pl index 0499a4cbc97..318d828c299 100644 --- a/src/backend/utils/Gen_dummy_probes.pl +++ b/src/backend/utils/Gen_dummy_probes.pl @@ -224,6 +224,7 @@ sub printQ() { if (ref($q)) { + # flush open w files so that reading this file gets it all if (exists($wFiles{$$q}) && $wFiles{$$q} ne '') { diff --git a/src/backend/utils/mb/Unicode/UCS_to_SJIS.pl b/src/backend/utils/mb/Unicode/UCS_to_SJIS.pl index de05649a33e..10e54b157d2 100755 --- a/src/backend/utils/mb/Unicode/UCS_to_SJIS.pl +++ b/src/backend/utils/mb/Unicode/UCS_to_SJIS.pl @@ -54,8 +54,8 @@ while (<FILE>) || ( ($code >= 0x879a) && ($code <= 0x879c))) { - printf STDERR - "Warning: duplicate UTF8: UCS=0x%04x SJIS=0x%04x\n", $ucs, + printf STDERR "Warning: duplicate UTF8: UCS=0x%04x SJIS=0x%04x\n", + $ucs, $code; next; } |