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

Use croak instead of die in Perl code when appropriate

Browse Source
This commit is contained in:
Peter Eisentraut
2018-02-24 14:35:54 -05:00
parent 32291aed49
commit fde03e8b55
4 changed files with 24 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -7,6 +7,7 @@ package convutils;
use strict;
use Carp;
use Exporter 'import';
our @EXPORT =
@@ -698,7 +699,7 @@ sub make_charmap
{
my ($out, $charset, $direction, $verbose) = @_;
die "unacceptable direction : $direction"
croak "unacceptable direction : $direction"
if ($direction != TO_UNICODE && $direction != FROM_UNICODE);
# In verbose mode, print a large comment with the source and comment of
@@ -759,7 +760,7 @@ sub make_charmap_combined
{
my ($charset, $direction) = @_;
die "unacceptable direction : $direction"
croak "unacceptable direction : $direction"
if ($direction != TO_UNICODE && $direction != FROM_UNICODE);
my @combined;