dougm 02/03/23 18:41:29
Modified: src/modules/perl modperl_io.c
Log:
move tie handle magic comment to where new TIEHANDLE_SV macro is defined
Revision Changes Path
1.8 +5 -5 modperl-2.0/src/modules/perl/modperl_io.c
Index: modperl_io.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_io.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- modperl_io.c 24 Mar 2002 02:36:41 -0000 1.7
+++ modperl_io.c 24 Mar 2002 02:41:29 -0000 1.8
@@ -1,5 +1,10 @@
#include "mod_perl.h"
+/*
+ * bleedperl change #11639 switch tied handle magic
+ * from living in the gv to the GvIOp(gv), so we have to deal
+ * with both to support 5.6.x
+ */
#if ((PERL_REVISION == 5) && (PERL_VERSION >= 7))
# define TIEHANDLE_SV(handle) (SV*)GvIOp((SV*)handle)
#else
@@ -14,11 +19,6 @@
#define TIED(handle) \
modperl_io_handle_tied(aTHX_ handle, "Apache::RequestRec")
-/*
- * XXX: bleedperl change #11639 switch tied handle magic
- * from living in the gv to the GvIOp(gv), so we have to deal
- * with both to support 5.6.x
- */
MP_INLINE void modperl_io_handle_untie(pTHX_ GV *handle)
{
#ifdef MP_TRACE
