diff options
Diffstat (limited to 'src/pl/plperl/plperl.c')
| -rw-r--r-- | src/pl/plperl/plperl.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 9f5313235f3..41fd0ba4214 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -2777,9 +2777,10 @@ compile_plperl_function(Oid fn_oid, bool is_trigger, bool is_event_trigger) /************************************************************ * Allocate a context that will hold all PG data for the procedure. ************************************************************/ - proc_cxt = AllocSetContextCreate(TopMemoryContext, - NameStr(procStruct->proname), - ALLOCSET_SMALL_SIZES); + proc_cxt = AllocSetContextCreateExtended(TopMemoryContext, + NameStr(procStruct->proname), + MEMCONTEXT_COPY_NAME, + ALLOCSET_SMALL_SIZES); /************************************************************ * Allocate and fill a new procedure description block. |