fix_do_plperl_plperlu.patch

text/x-patch

Filename: fix_do_plperl_plperlu.patch

Type: text/x-patch

Part: 0

Message: [PATCH] fix segfault with DO and plperl/plperlu

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/plperl.c	2	0

*** a/src/pl/plperl/plperl.c
--- b/src/pl/plperl/plperl.c
***************
*** 1154,1170 **** plperl_inline_handler(PG_FUNCTION_ARGS)
  	PG_CATCH();
  	{
  		current_call_data = save_call_data;
- 		restore_context(oldcontext);
  		if (desc.reference)
  			SvREFCNT_dec(desc.reference);
  		PG_RE_THROW();
  	}
  	PG_END_TRY();
  
  	current_call_data = save_call_data;
- 	restore_context(oldcontext);
  	if (desc.reference)
  		SvREFCNT_dec(desc.reference);
  
  	error_context_stack = pl_error_context.previous;
  
--- 1154,1170 ----
  	PG_CATCH();
  	{
  		current_call_data = save_call_data;
  		if (desc.reference)
  			SvREFCNT_dec(desc.reference);
+ 		restore_context(oldcontext);
  		PG_RE_THROW();
  	}
  	PG_END_TRY();
  
  	current_call_data = save_call_data;
  	if (desc.reference)
  		SvREFCNT_dec(desc.reference);
+ 	restore_context(oldcontext);
  
  	error_context_stack = pl_error_context.previous;