Changes in perlconfig.c [3aa0522:1b1cd2c]

File:

• perlconfig.c (modified) (1 diff)

perlconfig.c

@@ -582 +582 @@
 }
 
+void owl_perlconfig_mainloop(owl_timer *t, void *data)
+{
+  dSP;
+  if (!owl_perlconfig_is_function("BarnOwl::Hooks::_mainloop_hook"))
+    return;
+  PUSHMARK(SP) ;
+  call_pv("BarnOwl::Hooks::_mainloop_hook", G_DISCARD|G_EVAL);
+  if(SvTRUE(ERRSV)) {
+    owl_function_error("%s", SvPV_nolen(ERRSV));
+  }
+  return;
+}
+
 void owl_perlconfig_io_dispatch(const owl_io_dispatch *d, void *data)
 {