cvs commit: modperl-2.0/xs/APR/Socket APR__Socket.h

[stas]

stas        2004/05/07 18:28:25

  Modified:    xs/APR/Socket APR__Socket.h
  Log:
  move to the exception objects
  
  Revision  Changes    Path
  1.9       +8 -5      modperl-2.0/xs/APR/Socket/APR__Socket.h
  
  Index: APR__Socket.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/APR/Socket/APR__Socket.h,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -u -r1.8 -r1.9
  --- APR__Socket.h     4 May 2004 06:14:44 -0000       1.8
  +++ APR__Socket.h     8 May 2004 01:28:25 -0000       1.9
  @@ -66,8 +66,8 @@
       /* this also magically assings to APR_Socket ;-) */
       mpxs_usage_va_1(APR__Socket, "$socket->timeout_get()");
   
  -    MP_FAILURE_CROAK(apr_socket_timeout_get(APR__Socket, &t));
  -
  +    MP_RUN_CROAK(apr_socket_timeout_get(APR__Socket, &t),
  +                 "APR::Socket::timeout_get");
       return t;
   }
   
  @@ -75,7 +75,8 @@
   void mpxs_APR__Socket_timeout_set(pTHX_ apr_socket_t *socket,
                                    apr_interval_time_t t)
   {
  -    MP_FAILURE_CROAK(apr_socket_timeout_set(socket, t));
  +    MP_RUN_CROAK(apr_socket_timeout_set(socket, t),
  +                 "APR::Socket::timeout_set");
   }
   
   
  @@ -85,7 +86,8 @@
                                        apr_int32_t opt)
   {
       apr_int32_t val;
  -    MP_FAILURE_CROAK(apr_socket_opt_get(socket, opt, &val));
  +    MP_RUN_CROAK(apr_socket_opt_get(socket, opt, &val),
  +                 "APR::Socket::opt_get");
       return val;
   }
   
  @@ -93,5 +95,6 @@
   void mpxs_APR__Socket_opt_set(pTHX_ apr_socket_t *socket, apr_int32_t opt,
                                 apr_int32_t val)
   {
  -    MP_FAILURE_CROAK(apr_socket_opt_set(socket, opt, val));
  +    MP_RUN_CROAK(apr_socket_opt_set(socket, opt, val),
  +                 "APR::Socket::opt_set");
   }