diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2019-08-04 14:05:35 -0400 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2019-08-04 14:05:35 -0400 |
| commit | e8b639357f0a9d9543578ac9331a8b33dcc4f25f (patch) | |
| tree | ccd513694e544b52f92ebf5b8bcbd8a79a046f94 /contrib/jsonb_plperl/sql/jsonb_plperl.sql | |
| parent | 45d6789e78dc2997292a528e2538fa496485b85f (diff) | |
| download | postgresql-e8b639357f0a9d9543578ac9331a8b33dcc4f25f.tar.gz postgresql-e8b639357f0a9d9543578ac9331a8b33dcc4f25f.zip | |
Fix handling of "undef" in contrib/jsonb_plperl.
Perl has multiple internal representations of "undef", and just
testing for SvTYPE(x) == SVt_NULL doesn't recognize all of them,
leading to "cannot transform this Perl type to jsonb" errors.
Use the approved test SvOK() instead.
Report and patch by Ivan Panchenko. Back-patch to v11 where
this module was added.
Discussion: https://postgr.es/m/1564783533.324795401@f193.i.mail.ru
Diffstat (limited to 'contrib/jsonb_plperl/sql/jsonb_plperl.sql')
| -rw-r--r-- | contrib/jsonb_plperl/sql/jsonb_plperl.sql | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/contrib/jsonb_plperl/sql/jsonb_plperl.sql b/contrib/jsonb_plperl/sql/jsonb_plperl.sql index 8b062dfc6bb..a5b2cffe6b7 100644 --- a/contrib/jsonb_plperl/sql/jsonb_plperl.sql +++ b/contrib/jsonb_plperl/sql/jsonb_plperl.sql @@ -57,6 +57,19 @@ $$; SELECT testRegexpResultToJsonb(); +-- this revealed a different bug +CREATE FUNCTION testTextToJsonbObject(text) RETURNS jsonb +LANGUAGE plperl +TRANSFORM FOR TYPE jsonb +AS $$ +my $x = shift; +return {a => $x}; +$$; + +SELECT testTextToJsonbObject('abc'); +SELECT testTextToJsonbObject(NULL); + + CREATE FUNCTION roundtrip(val jsonb, ref text = '') RETURNS jsonb LANGUAGE plperl TRANSFORM FOR TYPE jsonb |