[ekg2-commit] r4092 - trunk/plugins/perl/common: trunk/plugins/perl/common/Watch.xs

[SVN commit]

Author: darkjames
Date: 2008-07-10 13:02:52 +0200 (Thu, 10 Jul 2008)
New Revision: 4092

Modified:
   trunk/plugins/perl/common/Watch.xs
Log:
watches in perl..


Modified: trunk/plugins/perl/common/Watch.xs
===================================================================
--- trunk/plugins/perl/common/Watch.xs	2008-07-10 10:59:54 UTC (rev 4091)
+++ trunk/plugins/perl/common/Watch.xs	2008-07-10 11:02:52 UTC (rev 4092)
@@ -5,9 +5,11 @@
 
 void watches()
 PREINIT:
-        watch_t *w;
+	list_t l;
 PPCODE:
-        for (w = watches; w; w = w->next) {
-		XPUSHs(sv_2mortal(bless_watch( w )));
+        for (l = watches; l; l = l->next) {
+		watch_t *w = l->data;
+		if (w)
+			XPUSHs(sv_2mortal(bless_watch( w )));
         }