diff options
| author | Andrew Dunstan <andrew@dunslane.net> | 2011-02-06 21:36:56 -0500 |
|---|---|---|
| committer | Andrew Dunstan <andrew@dunslane.net> | 2011-02-06 21:36:56 -0500 |
| commit | c852e95b0bcbe708ba64b9499e50b9cc98bd7b71 (patch) | |
| tree | da8af7bfc09899c02b0dd92debff8b0587e4068f /src | |
| parent | fb7355e0cedfadd437c30c73cfb71af7ff8933b1 (diff) | |
| download | postgresql-c852e95b0bcbe708ba64b9499e50b9cc98bd7b71.tar.gz postgresql-c852e95b0bcbe708ba64b9499e50b9cc98bd7b71.zip | |
Supply now required HeUTF8 macro for plperl where it's missing, per buildfarm results.
Diffstat (limited to 'src')
| -rw-r--r-- | src/pl/plperl/plperl.h | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/pl/plperl/plperl.h b/src/pl/plperl/plperl.h index 98d18e7723d..1e0bad101aa 100644 --- a/src/pl/plperl/plperl.h +++ b/src/pl/plperl/plperl.h @@ -42,6 +42,13 @@ #undef bool #endif +/* supply HeUTF8 if it's missing - ppport.h doesn't supply it, unfortunately */ +#ifndef HeUTF8 +#define HeUTF8(he) ((HeKLEN(he) == HEf_SVKEY) ? \ + SvUTF8(HeKEY_sv(he)) : \ + (U32)HeKUTF8(he)) +#endif + /* declare routines from plperl.c for access by .xs files */ HV *plperl_spi_exec(char *, int); void plperl_return_next(SV *); |