cvs commit: modperl-2.0/src/modules/perl modperl_callback.c

[stas]

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;
       }