dougm 02/01/08 14:48:38
Modified: xs/Apache/RequestIO Apache__RequestIO.h
xs/maps modperl_functions.map
Log:
dd UNTIE method to avoid warning from pp_untie:
"untie attempted while %d inner references still exist"
which is legit in our case, since we do not create a new object in
TIEHANDLE, but rather increment the refcount of and existing one.
Revision Changes Path
1.25 +3 -0 modperl-2.0/xs/Apache/RequestIO/Apache__RequestIO.h
Index: Apache__RequestIO.h
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/Apache/RequestIO/Apache__RequestIO.h,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -r1.24 -r1.25
--- Apache__RequestIO.h 6 Jan 2002 20:45:36 -0000 1.24
+++ Apache__RequestIO.h 8 Jan 2002 22:48:38 -0000 1.25
@@ -6,6 +6,9 @@
#define mpxs_Apache__RequestRec_BINMODE(r) \
r ? &PL_sv_yes : &PL_sv_no /* noop */
+#define mpxs_Apache__RequestRec_UNTIE(r, refcnt) \
+ (r && refcnt) ? &PL_sv_yes : &PL_sv_no /* noop */
+
#define mpxs_output_flush(r, rcfg) \
/* if ($|) */ \
if (IoFLUSH(PL_defoutgv)) { \
1.32 +1 -0 modperl-2.0/xs/maps/modperl_functions.map
Index: modperl_functions.map
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/maps/modperl_functions.map,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -r1.31 -r1.32
--- modperl_functions.map 20 Dec 2001 18:12:16 -0000 1.31
+++ modperl_functions.map 8 Jan 2002 22:48:38 -0000 1.32
@@ -30,6 +30,7 @@
apr_size_t:DEFINE_PRINT | | ...
apr_size_t:DEFINE_PRINTF | | ...
SV *:DEFINE_BINMODE | | request_rec *:r
+ SV *:DEFINE_UNTIE | | request_rec *:r, int:refcnt
mpxs_Apache__RequestRec_sendfile | | r, filename=r->filename, offset=0, len=0
mpxs_Apache__RequestRec_read | | r, buffer, bufsiz, offset=0
long:DEFINE_READ | | request_rec *:r, SV *:buffer, int:bufsiz, int:offset=0