diff options
Diffstat (limited to 'textproc/p5-XML-LibXML/files/500503-patch-LibXML.xs')
| -rw-r--r-- | textproc/p5-XML-LibXML/files/500503-patch-LibXML.xs | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/textproc/p5-XML-LibXML/files/500503-patch-LibXML.xs b/textproc/p5-XML-LibXML/files/500503-patch-LibXML.xs new file mode 100644 index 000000000000..0572e45a3527 --- /dev/null +++ b/textproc/p5-XML-LibXML/files/500503-patch-LibXML.xs @@ -0,0 +1,22 @@ +--- 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; |