diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2017-07-31 12:10:36 -0400 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2017-07-31 12:10:36 -0400 |
| commit | 30a5c8bfbd7bec07385c7d40305b06385d700b3f (patch) | |
| tree | 381cfc1b2b298e28d7e6fc5c100ba9bbf33c8fe2 /src/pl/plperl/plperl_helpers.h | |
| parent | d38e706ff149eb0937502cc0be27645e70bbfec6 (diff) | |
| download | postgresql-30a5c8bfbd7bec07385c7d40305b06385d700b3f.tar.gz postgresql-30a5c8bfbd7bec07385c7d40305b06385d700b3f.zip | |
PL/Perl portability fix: avoid including XSUB.h in plperl.c.
Back-patch of commit bebe174bb4462ef079a1d7eeafb82ff969f160a4,
which see for more info.
Patch by me, with some help from Ashutosh Sharma
Discussion: https://postgr.es/m/CANFyU97OVQ3+Mzfmt3MhuUm5NwPU=-FtbNH5Eb7nZL9ua8=rcA@mail.gmail.com
Diffstat (limited to 'src/pl/plperl/plperl_helpers.h')
| -rw-r--r-- | src/pl/plperl/plperl_helpers.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/pl/plperl/plperl_helpers.h b/src/pl/plperl/plperl_helpers.h index f8aa06835ce..8861736f9c5 100644 --- a/src/pl/plperl/plperl_helpers.h +++ b/src/pl/plperl/plperl_helpers.h @@ -50,6 +50,7 @@ utf_e2u(const char *str) static inline char * sv2cstr(SV *sv) { + dTHX; char *val, *res; STRLEN len; @@ -107,6 +108,7 @@ sv2cstr(SV *sv) static inline SV * cstr2sv(const char *str) { + dTHX; SV *sv; char *utf8_str; @@ -134,6 +136,8 @@ cstr2sv(const char *str) static inline void croak_cstr(const char *str) { + dTHX; + #ifdef croak_sv /* Use sv_2mortal() to be sure the transient SV gets freed */ croak_sv(sv_2mortal(cstr2sv(str))); |