Changeset 074bdaa for perlconfig.c

Timestamp:

Jun 22, 2011, 12:37:21 AM (13 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

master, release-1.10, release-1.8, release-1.9

Children:

bcde7926

Parents:

58f4fb2

git-author:

David Benjamin <davidben@mit.edu> (05/24/11 00:36:51)

git-committer:

David Benjamin <davidben@mit.edu> (06/22/11 00:37:21)

Message:

Replace BarnOwl::Timer with a perl wrapper over AnyEvent

This also allows us to kill owl_timer altogether.

File:

• perlconfig.c (modified) (1 diff)

perlconfig.c

@@ -612 +612 @@
   LEAVE;
 }
-
-void owl_perlconfig_perl_timer(owl_timer *t, void *data)
-{
-  dSP;
-  SV *obj = data;
-
-  if(!SvROK(obj)) {
-    return;
-  }
-
-  ENTER;
-  SAVETMPS;
-
-  PUSHMARK(SP);
-  XPUSHs(obj);
-  PUTBACK;
-
-  call_method("do_callback", G_DISCARD|G_EVAL);
-
-  SPAGAIN;
-
-  if (SvTRUE(ERRSV)) {
-    owl_function_error("Error in callback: '%s'", SvPV_nolen(ERRSV));
-    sv_setsv (ERRSV, &PL_sv_undef);
-  }
-
-  PUTBACK;
-  FREETMPS;
-  LEAVE;
-}
-
-void owl_perlconfig_perl_timer_destroy(owl_timer *t)
-{
-  if(SvOK((SV*)t->data)) {
-    SvREFCNT_dec((SV*)t->data);
-  }
-}