plperl-regression.diff

text/x-patch

Filename: plperl-regression.diff

Type: text/x-patch

Part: 0

Message: Re: why does plperl cache functions using just a bool for is_trigger

Patch

Same data as JSON: GET /api/v1/attachments/:id/patch the parsed metadata as JSON — format, series position, per-file stats; never the diff bytes. API reference →

Format: context

File	+	−
src/pl/plperl/expected/plperl_trigger.out	6	0
src/pl/plperl/sql/plperl_trigger.sql	6	0

*** a/src/pl/plperl/expected/plperl_trigger.out
--- b/src/pl/plperl/expected/plperl_trigger.out
***************
*** 266,268 **** SELECT * FROM trigger_test;
--- 266,274 ----
   4 | immortal
  (1 row)
  
+ CREATE OR REPLACE FUNCTION direct_trigger() RETURNS trigger AS $$
+     return;
+ $$ LANGUAGE plperl;
+ SELECT direct_trigger();
+ ERROR:  trigger functions can only be called as triggers
+ CONTEXT:  compilation of PL/Perl function "direct_trigger"
*** a/src/pl/plperl/sql/plperl_trigger.sql
--- b/src/pl/plperl/sql/plperl_trigger.sql
***************
*** 130,132 **** DELETE FROM trigger_test;
--- 130,138 ----
  
  
  SELECT * FROM trigger_test;
+ 
+ CREATE OR REPLACE FUNCTION direct_trigger() RETURNS trigger AS $$
+     return;
+ $$ LANGUAGE plperl;
+ 
+ SELECT direct_trigger();