stas2004/05/07 18:28:25
Modified:xs/APR/Socket APR__Socket.h
Log:
move to the exception objects
Revision ChangesPath
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 - 1.8
+++ APR__Socket.h 8 May 2004 01:28:25 - 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);
}