diff options
| author | Peter Eisentraut <peter_e@gmx.net> | 2018-02-24 14:35:54 -0500 |
|---|---|---|
| committer | Peter Eisentraut <peter_e@gmx.net> | 2018-02-24 14:54:16 -0500 |
| commit | fde03e8b559d0e00bf4acd8cea3bb49411099c34 (patch) | |
| tree | f5484ce99293a18a88cf1a4aff8c12b12e25bffa /src/backend/utils/mb/Unicode/convutils.pm | |
| parent | 32291aed494d425a548e45b3b6ad95f9d5c94e67 (diff) | |
| download | postgresql-fde03e8b559d0e00bf4acd8cea3bb49411099c34.tar.gz postgresql-fde03e8b559d0e00bf4acd8cea3bb49411099c34.zip | |
Use croak instead of die in Perl code when appropriate
Diffstat (limited to 'src/backend/utils/mb/Unicode/convutils.pm')
| -rw-r--r-- | src/backend/utils/mb/Unicode/convutils.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/backend/utils/mb/Unicode/convutils.pm b/src/backend/utils/mb/Unicode/convutils.pm index 854df8cf2a8..69494d0df32 100644 --- a/src/backend/utils/mb/Unicode/convutils.pm +++ b/src/backend/utils/mb/Unicode/convutils.pm @@ -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; |