aboutsummaryrefslogtreecommitdiff
path: root/contrib/jsonb_plperl/sql/jsonb_plperl.sql
diff options
context:
space:
mode:
authorTom Lane <tgl@sss.pgh.pa.us>2018-04-04 11:51:36 -0400
committerTom Lane <tgl@sss.pgh.pa.us>2018-04-04 11:51:36 -0400
commiteac93e20afe434a79e81558c17a7a1408cf9d74a (patch)
treefb9e24e12dfa34b9d52d9daa3f87dc3438c013a4 /contrib/jsonb_plperl/sql/jsonb_plperl.sql
parent331b2369c0ad1e51d5e50bf5dd75232e0160553a (diff)
downloadpostgresql-eac93e20afe434a79e81558c17a7a1408cf9d74a.tar.gz
postgresql-eac93e20afe434a79e81558c17a7a1408cf9d74a.zip
Remove less-portable-than-believed test case.
In commit 331b2369c I added a test to see what jsonb_plperl would do with a qr{} result. Turns out the answer is Perl version dependent. That fact doesn't bother me particularly, but coping with multiple result possibilities is way more work than this test seems worth. So remove it again. Discussion: https://postgr.es/m/E1f3MMJ-0006bf-B0@gemulon.postgresql.org
Diffstat (limited to 'contrib/jsonb_plperl/sql/jsonb_plperl.sql')
-rw-r--r--contrib/jsonb_plperl/sql/jsonb_plperl.sql12
1 files changed, 0 insertions, 12 deletions
diff --git a/contrib/jsonb_plperl/sql/jsonb_plperl.sql b/contrib/jsonb_plperl/sql/jsonb_plperl.sql
index 9993132ef0d..8b0a8764afa 100644
--- a/contrib/jsonb_plperl/sql/jsonb_plperl.sql
+++ b/contrib/jsonb_plperl/sql/jsonb_plperl.sql
@@ -34,18 +34,6 @@ $$;
SELECT testSVToJsonb();
--- unsupported (for now)
-CREATE FUNCTION testRegexpToJsonb() RETURNS jsonb
-LANGUAGE plperl
-TRANSFORM FOR TYPE jsonb
-AS $$
-my $a = qr/foo/;
-return ($a);
-$$;
-
-SELECT testRegexpToJsonb();
-
-
-- this revealed a bug in the original implementation
CREATE FUNCTION testRegexpResultToJsonb() RETURNS jsonb
LANGUAGE plperl