--- EV/typemap	2007/10/28 09:39:18	1.4
+++ EV/typemap	2007/10/29 07:56:03	1.5
@@ -1,5 +1,6 @@
 Base		T_BASE
 Event		T_EVENT
+Signal		T_SIGNAL
 
 /* for 5.6 compatibility */
 const char *	T_PV
@@ -18,6 +19,10 @@
           croak (\"object is not of type EV::Event\");
         $var = (Event)SvPVX (SvRV ($arg));
 
+T_SIGNAL
+	if (($var = sv_signum ($arg)) <= 0)
+          croak (\"'%s' is not a valid signal number or name\", SvPV_nolen ($arg));
+
 OUTPUT
 
 T_BASE