--- cvsroot/EV/typemap	2007/11/27 07:27:10	1.12
+++ cvsroot/EV/typemap	2009/07/14 00:09:59	1.16
@@ -1,29 +1,39 @@
-Signal		T_SIGNAL
+Signal			T_SIGNAL
 
-ev_watcher *	T_WATCHER
-ev_io *		T_WATCHER
-ev_timer *	T_WATCHER
-ev_periodic *	T_WATCHER
-ev_signal *	T_WATCHER
-ev_idle *	T_WATCHER
-ev_prepare *	T_WATCHER
-ev_check *	T_WATCHER
-ev_child *	T_WATCHER
-ev_embed *	T_WATCHER
-ev_stat *	T_WATCHER
+struct ev_loop *	T_LOOP
 
-char *		T_PVbyte
-const char *	T_PVbyte
+ev_watcher *		T_WATCHER
+ev_io *			T_WATCHER
+ev_timer *		T_WATCHER
+ev_periodic *		T_WATCHER
+ev_signal *		T_WATCHER
+ev_idle *		T_WATCHER
+ev_prepare *		T_WATCHER
+ev_check *		T_WATCHER
+ev_child *		T_WATCHER
+ev_embed *		T_WATCHER
+ev_stat *		T_WATCHER
+ev_fork *		T_WATCHER
+ev_async *		T_WATCHER
+
+char *			T_PVbyte
+const char *		T_PVbyte
 
 INPUT
 
 T_SIGNAL
-	if (($var = sv_signum ($arg)) <= 0)
+	if (($var = s_signum_croak ($arg)) <= 0)
           croak (\"'%s' is not a valid signal number or name\", SvPV_nolen ($arg));
 
 T_PVbyte
 	$var = ($type)SvPVbyte_nolen ($arg)
 
+T_LOOP
+	if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg))
+              && (SvSTASH (SvRV ($arg)) == stash_loop)))
+          croak (\"object is not of type EV::Loop\");
+	$var = ($type)SvIVX (SvRV ($arg));
+
 T_WATCHER
 	if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg))
               && (SvSTASH (SvRV ($arg)) == stash_" . ($type =~ /ev_(\S+)/, "$1") . "