Here's the fully factorized version. I was in a hurry to mail this off :)
-- Stephen Clouse <[EMAIL PROTECTED]> Senior Programmer, IQ Coordinator Project Lead The IQ Group, Inc. <http://www.theiqgroup.com/>
Index: xs/modperl_xs_util.h
===================================================================
RCS file: /home/cvspublic/modperl-2.0/xs/modperl_xs_util.h,v
retrieving revision 1.12
diff -u -r1.12 modperl_xs_util.h
--- xs/modperl_xs_util.h 14 May 2002 03:12:56 -0000 1.12
+++ xs/modperl_xs_util.h 1 Oct 2002 20:00:34 -0000
@@ -83,7 +83,8 @@
#define mpxs_write_loop(func,obj) \
while (MARK <= SP) { \
apr_ssize_t wlen; \
- char *buf = SvPV(*MARK, wlen); \
+ SV *marksv = (SvROK(*MARK)) ? SvRV(*MARK) : *MARK; \
+ char *buf = SvPV(marksv, wlen); \
apr_status_t rv = func(obj, buf, &wlen); \
if (rv != APR_SUCCESS) { \
Perl_croak(aTHX_ modperl_apr_strerror(rv)); \
msg03342/pgp00000.pgp
Description: PGP signature
