From: Tom Lane <tgl@sss.pgh.pa.us>
To: pgsql-committers@lists.postgresql.org
Subject: pgsql: Support tied Perl objects in plperl and associated contrib modul
Date: Wed, 19 Aug 2026 18:07:05 +0000
Message-ID: <E1wwkgq-00000001Fh7-2ny8@gemulon.postgresql.org> (raw)
Support tied Perl objects in plperl and associated contrib modules.
Up to now, if you passed a "tied" object to a PL/Perl operation,
it would most likely get treated as "undef", since we failed to
perform get magic on values we're passed. Tied hashes worked
partially, in that you could read out their keys, but the values
always read as undef.
To fix, use hv_iterval() not HeVAL() to fetch values from perl
hashes, and be careful to apply plperl_materialize_sv() before
testing SvOK() or SvROK() on any perl SV.
Add regression test cases exercising some typical usage scenarios
for tied objects.
Arguably this is a bug fix, but in view of the lack of field
complaints to date, let's treat it as a new feature instead.
The risk/reward ratio for back-patching isn't attractive.
Author: Andrey Rachitskiy <pl0h0yp1@gmail.com>
Reviewed-by: Tom Lane <tgl@sss.pgh.pa.us>
Discussion: https://postgr.es/m/569769.1786901901@sss.pgh.pa.us
Branch
------
master
Details
-------
https://git.postgresql.org/pg/commitdiff/ccab6d36d0cbe554c380f69ade1598a41c06552a
Modified Files
--------------
contrib/hstore_plperl/expected/hstore_plperl.out | 25 +++++
contrib/hstore_plperl/hstore_plperl.c | 10 +-
contrib/hstore_plperl/sql/hstore_plperl.sql | 22 ++++
contrib/jsonb_plperl/expected/jsonb_plperl.out | 46 +++++++-
contrib/jsonb_plperl/jsonb_plperl.c | 4 +-
contrib/jsonb_plperl/sql/jsonb_plperl.sql | 39 +++++++
src/pl/plperl/GNUmakefile | 2 +-
src/pl/plperl/expected/plperl_tied.out | 132 +++++++++++++++++++++++
src/pl/plperl/meson.build | 1 +
src/pl/plperl/plperl.c | 44 ++++++--
src/pl/plperl/plperl.h | 10 ++
src/pl/plperl/sql/plperl_tied.sql | 113 +++++++++++++++++++
12 files changed, 431 insertions(+), 17 deletions(-)
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Reply to all the recipients using the --to and --cc options:
reply via email
To: pgsql-committers@postgresql.org
Cc: tgl@sss.pgh.pa.us, pgsql-committers@lists.postgresql.org
Subject: Re: pgsql: Support tied Perl objects in plperl and associated contrib modul
In-Reply-To: <E1wwkgq-00000001Fh7-2ny8@gemulon.postgresql.org>
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
This inbox is served by DDX for PostgreSQL; see mirroring instructions
for how to clone and mirror all data and code used for this inbox