[262] in BarnOwl Developers
[D-O-H] r433 - trunk/owl
daemon@ATHENA.MIT.EDU (asedeno@MIT.EDU)
Thu Oct 29 18:04:16 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
To: dirty-owl-hackers@mit.edu
From: asedeno@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Mon, 30 Oct 2006 13:42:51 -0500 (EST)
Author: asedeno
Date: 2006-10-30 13:42:49 -0500 (Mon, 30 Oct 2006)
New Revision: 433
Modified:
trunk/owl/owl.c
trunk/owl/perlconfig.c
Log:
Changed how owl::mainloop_hook is called. This does wonders for memory.
Modified: trunk/owl/owl.c
===================================================================
--- trunk/owl/owl.c 2006-10-30 06:51:58 UTC (rev 432)
+++ trunk/owl/owl.c 2006-10-30 18:42:49 UTC (rev 433)
@@ -448,8 +448,7 @@
/* Hook perl into the loop */
if (owl_perlconfig_is_function("owl::mainloop_hook")) {
- perlout = owl_perlconfig_execute("owl::mainloop_hook");
- if (perlout) owl_free(perlout);
+ owl_perlconfig_mainloop();
}
/* little hack */
Modified: trunk/owl/perlconfig.c
===================================================================
--- trunk/owl/perlconfig.c 2006-10-30 06:51:58 UTC (rev 432)
+++ trunk/owl/perlconfig.c 2006-10-30 18:42:49 UTC (rev 433)
@@ -411,3 +411,11 @@
SvREFCNT_dec(cb);
e->cbdata = NULL;
}
+
+void owl_perlconfig_mainloop()
+{
+ dSP ;
+ PUSHMARK(SP) ;
+ call_pv("owl::mainloop_hook", G_DISCARD|G_EVAL|G_KEEPERR);
+ return;
+}
