--- cvsroot/EV/typemap	2007/12/20 07:12:57	1.13
+++ cvsroot/EV/typemap	2007/12/20 09:26:40	1.14
@@ -1,20 +1,22 @@
-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
-ev_fork *	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
+
+char *			T_PVbyte
+const char *		T_PVbyte
 
 INPUT
 
@@ -25,6 +27,12 @@
 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") . "