mirror of
https://git.freebsd.org/ports.git
synced 2025-07-03 10:29:15 -04:00
22 lines
538 B
Text
22 lines
538 B
Text
--- LibXML.xs.orig Sun May 16 19:56:30 2004
|
|
+++ LibXML.xs Sun May 16 19:57:29 2004
|
|
@@ -75,6 +75,19 @@
|
|
#define TEST_PERL_FLAG(flag) \
|
|
SvTRUE(perl_get_sv(flag, FALSE)) ? 1 : 0
|
|
|
|
+#ifndef SvPV_nolen
|
|
+#define SvPV_nolen(sv) \
|
|
+ ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
|
|
+ ? SvPVX(sv) : sv_2pv_nolen(sv))
|
|
+
|
|
+static char *
|
|
+sv_2pv_nolen(register SV *sv)
|
|
+{
|
|
+ STRLEN n_a;
|
|
+ return sv_2pv(sv, &n_a);
|
|
+}
|
|
+#endif
|
|
+
|
|
static SV * LibXML_match_cb = NULL;
|
|
static SV * LibXML_read_cb = NULL;
|
|
static SV * LibXML_open_cb = NULL;
|