cvs commit: modperl-2.0/xs modperl_xs_util.h

[dougm]

dougm       01/11/06 09:37:25

  Modified:    xs       modperl_xs_util.h
  Log:
  s/croak/Perl_croak/g
  
  Revision  Changes    Path
  1.11      +5 -3      modperl-2.0/xs/modperl_xs_util.h
  
  Index: modperl_xs_util.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/modperl_xs_util.h,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- modperl_xs_util.h 2001/10/27 17:14:17     1.10
  +++ modperl_xs_util.h 2001/11/06 17:37:25     1.11
  @@ -67,8 +67,9 @@
   }
   
   #define mpxs_usage_va(i, obj, msg) \
  -if ((items < i) || !(mpxs_sv2_obj(obj, *MARK))) \
  -croak("usage: %s", msg); \
  +if ((items < i) || !(mpxs_sv2_obj(obj, *MARK))) { \
  +    Perl_croak(aTHX_ "usage: %s", msg); \
  +} \
   MARK++
   
   #define mpxs_usage_va_1(obj, msg) mpxs_usage_va(1, obj, msg)
  @@ -77,13 +78,14 @@
   mpxs_usage_va(2, obj, msg); \
   arg = *MARK++
   
  +/* XXX: we probably shouldn't croak here */
   #define mpxs_write_loop(func,obj) \
       while (MARK <= SP) { \
           apr_ssize_t wlen; \
           char *buf = SvPV(*MARK, wlen); \
           apr_status_t rv = func(obj, buf, &wlen); \
           if (rv != APR_SUCCESS) { \
  -            croak(modperl_apr_strerror(rv)); \
  +            Perl_croak(aTHX_ modperl_apr_strerror(rv)); \
           } \
           bytes += wlen; \
           MARK++; \