[ekg2-commit] ekg2: Timer.xs (HEAD) [darkjames]

[CVS commit]

Module name:	ekg2
Changes by:	darkjames	2007-05-03 18:19:30

Modified files:
	Timer.xs

Log message:
perl_timer_bind() can return NULL, avoid SEGV.
Program exited normally. o/

Index: Timer.xs
===================================================================
RCS file: /home/cvs/ekg2/plugins/perl/common/Timer.xs,v
diff -d -u -r1.5 -r1.6
--- Timer.xs	16 Mar 2006 21:54:47 -0000	1.5
+++ Timer.xs	3 May 2007 16:19:30 -0000	1.6
@@ -14,8 +14,12 @@
 # Ekg2::Timer timer_find(const char *uid)
 
 Ekg2::Timer timer_bind(int freq, char *handler)
+PREINIT:
+	script_timer_t *tmp;
 CODE:
-	RETVAL = (perl_timer_bind(freq, handler)->self);
+	if ((tmp = perl_timer_bind(freq, handler)))
+		RETVAL = tmp->self;
+	else	RETVAL = NULL;
 OUTPUT:
 	RETVAL