Supply now required HeUTF8 macro for plperl where it's missing, per buildfarm results.
authorAndrew Dunstan <andrew@dunslane.net>
Mon, 7 Feb 2011 02:36:56 +0000 (21:36 -0500)
committerAndrew Dunstan <andrew@dunslane.net>
Mon, 7 Feb 2011 02:36:56 +0000 (21:36 -0500)
src/pl/plperl/plperl.h

index 98d18e7723d3535087ea22b0026914cb9f8223f9..1e0bad101aa5b175c79f952050a960b3ea615945 100644 (file)
 #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 *);