mirror of
https://github.com/postgres/postgres.git
synced 2025-11-04 00:02:52 -05:00
36058a3c55
plperl's default handling of bool arguments or results is not terribly satisfactory, since Perl doesn't consider the string 'f' to be false. Ideally we'd just fix that, but the backwards-compatibility hazard would be substantial. Instead, build a TRANSFORM module that can be optionally applied to provide saner semantics. Perhaps usefully, this is also about the minimum possible skeletal example of a plperl transform module; so it might be a better starting point for user-written transform modules than hstore_plperl or jsonb_plperl. Ivan Panchenko Discussion: https://postgr.es/m/1583013317.881182688@f390.i.mail.ru
20 lines
691 B
SQL
20 lines
691 B
SQL
/* contrib/bool_plperl/bool_plperlu--1.0.sql */
|
|
|
|
-- complain if script is sourced in psql, rather than via CREATE EXTENSION
|
|
\echo Use "CREATE EXTENSION bool_plperlu" to load this file. \quit
|
|
|
|
CREATE FUNCTION bool_to_plperlu(val internal) RETURNS internal
|
|
LANGUAGE C STRICT IMMUTABLE
|
|
AS 'MODULE_PATHNAME', 'bool_to_plperl';
|
|
|
|
CREATE FUNCTION plperlu_to_bool(val internal) RETURNS bool
|
|
LANGUAGE C STRICT IMMUTABLE
|
|
AS 'MODULE_PATHNAME', 'plperl_to_bool';
|
|
|
|
CREATE TRANSFORM FOR bool LANGUAGE plperlu (
|
|
FROM SQL WITH FUNCTION bool_to_plperlu(internal),
|
|
TO SQL WITH FUNCTION plperlu_to_bool(internal)
|
|
);
|
|
|
|
COMMENT ON TRANSFORM FOR bool LANGUAGE plperlu IS 'transform between bool and Perl';
|