stas 2004/05/03 23:12:24
Modified: src/modules/perl modperl_callback.c Log: as ERRSV is an object, we no longer can read its PVX slot directly, but need to get the magic invoked Revision Changes Path 1.72 +2 -2 modperl-2.0/src/modules/perl/modperl_callback.c Index: modperl_callback.c =================================================================== RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_callback.c,v retrieving revision 1.71 retrieving revision 1.72 diff -u -u -r1.71 -r1.72 --- modperl_callback.c 2 May 2004 21:01:01 -0000 1.71 +++ modperl_callback.c 4 May 2004 06:12:24 -0000 1.72 @@ -121,7 +121,7 @@ status = SvIVx(status_sv); MP_TRACE_h(MP_FUNC, "coercing handler %s's return value '%s' into %d", - handler->name, SvPVX(status_sv), status); + handler->name, SvPV_nolen(status_sv), status); } else { /* any other return types are considered as errors */ @@ -138,7 +138,7 @@ FREETMPS;LEAVE; if (SvTRUE(ERRSV)) { - MP_TRACE_h(MP_FUNC, "$@ = %s", SvPVX(ERRSV)); + MP_TRACE_h(MP_FUNC, "$@ = %s", SvPV_nolen(ERRSV)); status = HTTP_INTERNAL_SERVER_ERROR; }