diff options
Diffstat (limited to 'src/backend')
| -rw-r--r-- | src/backend/catalog/Catalog.pm | 1 | ||||
| -rw-r--r-- | src/backend/catalog/genbki.pl | 4 | ||||
| -rw-r--r-- | src/backend/parser/check_keywords.pl | 1 | ||||
| -rw-r--r-- | src/backend/utils/mb/Unicode/convutils.pm | 5 | ||||
| -rw-r--r-- | src/backend/utils/sort/gen_qsort_tuple.pl | 4 |
5 files changed, 15 insertions, 0 deletions
diff --git a/src/backend/catalog/Catalog.pm b/src/backend/catalog/Catalog.pm index 95bf619c912..ae5b499b6ad 100644 --- a/src/backend/catalog/Catalog.pm +++ b/src/backend/catalog/Catalog.pm @@ -367,6 +367,7 @@ sub RenameTempFile { rename($temp_name, $final_name) || die "rename: $temp_name: $!"; } + return; } # Find a symbol defined in a particular header file and extract the value. diff --git a/src/backend/catalog/genbki.pl b/src/backend/catalog/genbki.pl index ebdc919414f..9be51d28b03 100644 --- a/src/backend/catalog/genbki.pl +++ b/src/backend/catalog/genbki.pl @@ -649,6 +649,7 @@ sub gen_pg_attribute } } } + return; } # Given $pgattr_schema (the pg_attribute schema for a catalog sufficient for @@ -706,6 +707,7 @@ sub morph_row_for_pgattr } Catalog::AddDefaultValues($row, $pgattr_schema, 'pg_attribute'); + return; } # Write an entry to postgres.bki. @@ -744,6 +746,7 @@ sub print_bki_insert push @bki_values, $bki_value; } printf $bki "insert %s( %s )\n", $oid, join(' ', @bki_values); + return; } # Given a row reference, modify it so that it becomes a valid entry for @@ -786,6 +789,7 @@ sub morph_row_for_schemapg # Only the fixed-size portions of the descriptors are ever used. delete $row->{$attname} if $column->{is_varlen}; } + return; } # Perform OID lookups on an array of OID names. diff --git a/src/backend/parser/check_keywords.pl b/src/backend/parser/check_keywords.pl index ad41e134ac2..718441c2151 100644 --- a/src/backend/parser/check_keywords.pl +++ b/src/backend/parser/check_keywords.pl @@ -18,6 +18,7 @@ sub error { print STDERR @_; $errors = 1; + return; } $, = ' '; # set output field separator diff --git a/src/backend/utils/mb/Unicode/convutils.pm b/src/backend/utils/mb/Unicode/convutils.pm index 69ec099f29e..103bd0264e5 100644 --- a/src/backend/utils/mb/Unicode/convutils.pm +++ b/src/backend/utils/mb/Unicode/convutils.pm @@ -99,6 +99,7 @@ sub print_conversion_tables $charset); print_conversion_tables_direction($this_script, $csname, TO_UNICODE, $charset); + return; } ############################################################################# @@ -160,6 +161,7 @@ sub print_conversion_tables_direction } close($out); + return; } sub print_from_utf8_combined_map @@ -194,6 +196,7 @@ sub print_from_utf8_combined_map } print $out "\t/* $last_comment */" if ($verbose && $last_comment ne ""); print $out "\n};\n"; + return; } sub print_to_utf8_combined_map @@ -230,6 +233,7 @@ sub print_to_utf8_combined_map } print $out "\t/* $last_comment */" if ($verbose && $last_comment ne ""); print $out "\n};\n"; + return; } ####################################################################### @@ -625,6 +629,7 @@ sub print_radix_table if ($off != $tblsize) { die "table size didn't match!"; } print $out "};\n"; + return; } ### diff --git a/src/backend/utils/sort/gen_qsort_tuple.pl b/src/backend/utils/sort/gen_qsort_tuple.pl index 6186d0a5bab..b6b2ffa7d0b 100644 --- a/src/backend/utils/sort/gen_qsort_tuple.pl +++ b/src/backend/utils/sort/gen_qsort_tuple.pl @@ -130,6 +130,8 @@ swapfunc(SortTuple *a, SortTuple *b, size_t n) #define vecswap(a, b, n) if ((n) > 0) swapfunc(a, b, n) EOM + + return; } sub emit_qsort_implementation @@ -263,4 +265,6 @@ loop: } } EOM + + return; } |