database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-08-12 15:23:02 +03:00
Code Activity

Don't fall off the end of perl functions

Browse Source 
This complies with the perlcritic policy
Subroutines::RequireFinalReturn, which is a severity 4 policy. Since we
only currently check at severity level 5, the policy is raised to that
level until we move to level 4 or lower, so that any new infringements
will be caught.

A small cosmetic piece of tidying of the pgperlcritic script is
included.

Mike Blackwell

Discussion: https://postgr.es/m/CAESHdJpfFm_9wQnQ3koY3c91FoRQsO-fh02za9R3OEMndOn84A@mail.gmail.com
This commit is contained in:
Andrew Dunstan
2018-05-27 09:08:42 -04:00
parent 8a56ff4848
commit 3a7cc727c7
47 changed files with 208 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/backend/utils/mb/Unicode/convutils.pm
View File

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