stas 2003/08/21 22:26:12
Modified: xs modperl_xs_util.h
Log:
move the declaration before the code
Revision Changes Path
1.17 +2 -1 modperl-2.0/xs/modperl_xs_util.h
Index: modperl_xs_util.h
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/modperl_xs_util.h,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- modperl_xs_util.h 20 Aug 2003 23:12:43 -0000 1.16
+++ modperl_xs_util.h 22 Aug 2003 05:26:12 -0000 1.17
@@ -83,9 +83,10 @@
#define mpxs_write_loop(func, obj) \
while (MARK <= SP) { \
apr_ssize_t wlen; \
+ apr_status_t rv; \
char *buf = SvPV(*MARK, wlen); \
MP_TRACE_o(MP_FUNC, "%d bytes [%s]", wlen, buf); \
- apr_status_t rv = func(aTHX_ obj, buf, &wlen); \
+ rv = func(aTHX_ obj, buf, &wlen); \
if (rv != APR_SUCCESS) { \
Perl_croak(aTHX_ modperl_apr_strerror(rv)); \
} \
