Changeset df569c5


Ignore:
Timestamp:
Oct 3, 2009, 9:36:17 PM (12 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
6f0fbe9
Parents:
9f5e847
Message:
Add a perl hook that is called once Zephyr is initialized.

Some functions, like ZGetSender(), cannot be usefully or safely called
until Zephyr is initialized, so add a hook so that perl code can
safely wait until they are available to call them.
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl.pm

    rde3f641 rdf569c5  
    3232use BarnOwl::Message;
    3333use BarnOwl::Style;
     34use BarnOwl::Zephyr;
    3435use BarnOwl::Timer;
    3536use BarnOwl::Editwin;
  • zephyr.c

    rc79a047 rdf569c5  
    8282void owl_zephyr_finish_initialization(owl_dispatch *d) {
    8383  Code_t code;
     84  char *perl;
    8485
    8586  owl_select_remove_dispatch(d->fd);
     
    125126    owl_function_zephyr_buddy_check(0);
    126127  }
     128
     129 perl = owl_perlconfig_execute("BarnOwl::Zephyr::_zephyr_startup()");
     130 owl_free(perl);
    127131}
    128132
Note: See TracChangeset for help on using the changeset viewer.