diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2019-08-04 14:05:34 -0400 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2019-08-04 14:05:34 -0400 |
| commit | e0f5048851ff88a53630a0c121a1cd15f6a2f1cd (patch) | |
| tree | c0737bb205b2b080b69a23068b9dffa70b98a76b /contrib/jsonb_plperl/expected/jsonb_plperl.out | |
| parent | 803466b6ffaa2e5b94d8ce4d7fffa8185f2a0184 (diff) | |
| download | postgresql-e0f5048851ff88a53630a0c121a1cd15f6a2f1cd.tar.gz postgresql-e0f5048851ff88a53630a0c121a1cd15f6a2f1cd.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/expected/jsonb_plperl.out')
| -rw-r--r-- | contrib/jsonb_plperl/expected/jsonb_plperl.out | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/contrib/jsonb_plperl/expected/jsonb_plperl.out b/contrib/jsonb_plperl/expected/jsonb_plperl.out index 6dc090a87f7..5a73485ac06 100644 --- a/contrib/jsonb_plperl/expected/jsonb_plperl.out +++ b/contrib/jsonb_plperl/expected/jsonb_plperl.out @@ -66,6 +66,26 @@ SELECT testRegexpResultToJsonb(); 0 (1 row) +-- 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'); + testtexttojsonbobject +----------------------- + {"a": "abc"} +(1 row) + +SELECT testTextToJsonbObject(NULL); + testtexttojsonbobject +----------------------- + {"a": null} +(1 row) + CREATE FUNCTION roundtrip(val jsonb, ref text = '') RETURNS jsonb LANGUAGE plperl TRANSFORM FOR TYPE jsonb @@ -230,4 +250,4 @@ SELECT roundtrip('{"1": {"2": [3, 4, 5]}, "2": 3}', 'HASH'); \set VERBOSITY terse \\ -- suppress cascade details DROP EXTENSION plperl CASCADE; -NOTICE: drop cascades to 7 other objects +NOTICE: drop cascades to 8 other objects |