upstream/postgresql
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2026-04-15 22:10:45 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Allow building with perl 5.14.

Browse source 
Patch from Alex Hunsaker.
This commit is contained in:
Andrew Dunstan 2011-06-04 19:35:04 -04:00
parent 39dbc62ade
commit cb252c2acd
2 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/pl/plperl/plperl.c
View file

@ -874,7 +874,7 @@ plperl_trusted_init(void)
if (!isGV_with_GP(sv) || !GvCV(sv))
continue;
SvREFCNT_dec(GvCV(sv)); /* free the CV */
GvCV(sv) = NULL; /* prevent call via GV */
GvCV_set(sv, NULL); /* prevent call via GV */
}
hv_clear(stash);

5
src/pl/plperl/plperl.h
View file

@ -42,6 +42,11 @@
#undef bool
#endif
/* supply GvCV_set if it's missing - ppport.h doesn't supply it, unfortunately */
#ifndef GvCV_set
#define GvCV_set(gv, cv) (GvCV(gv) = cv)
#endif
/* declare routines from plperl.c for access by .xs files */
HV *plperl_spi_exec(char *, int);
void plperl_return_next(SV *);