summaryrefslogtreecommitdiff
path: root/contrib/bool_plperl/sql/bool_plperl.sql
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/bool_plperl/sql/bool_plperl.sql')
-rw-r--r--contrib/bool_plperl/sql/bool_plperl.sql6
1 files changed, 5 insertions, 1 deletions
diff --git a/contrib/bool_plperl/sql/bool_plperl.sql b/contrib/bool_plperl/sql/bool_plperl.sql
index dd99f545ea9..b7f570862ce 100644
--- a/contrib/bool_plperl/sql/bool_plperl.sql
+++ b/contrib/bool_plperl/sql/bool_plperl.sql
@@ -33,7 +33,7 @@ SELECT perl2undef() IS NULL AS p;
CREATE FUNCTION bool2perl(bool, bool, bool) RETURNS void
LANGUAGE plperl
-TRANSFORM FOR TYPE bool
+TRANSFORM FOR TYPE bool, for type boolean -- duplicate to test ruleutils
AS $$
my ($x, $y, $z) = @_;
@@ -46,6 +46,10 @@ $$;
SELECT bool2perl (true, false, NULL);
+--- test ruleutils
+
+\sf bool2perl
+
--- test selecting bool through SPI
CREATE FUNCTION spi_test() RETURNS void