perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/src/modules/perl modperl_callback.c
Date Tue, 04 May 2004 06:12:24 GMT
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;
       }
   
  
  
  

Mime
View raw message