Changeset 0337203 for perlconfig.c

Timestamp:

Mar 16, 2007, 12:45:19 AM (18 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

4dd6e58

Parents:

69d66aa7

Message:

First phase of the module rewrite. Internals now (IMO) somewhat
cleaner.

 r19586@phanatique:  nelhage | 2007-03-14 20:35:39 -0400
 First pass at a cleaned up perlwrap.pm
 
 * Using a new hook style
 * Modules loaded by BarnOwl::ModuleLoader (not yet written)
 
 reload is unimplemented for now. If possible, I'd like it to live
 elsewhere.
 
 r19587@phanatique:  nelhage | 2007-03-14 20:36:58 -0400
 Switching to the new underscore internal hook names.
 r19592@phanatique:  nelhage | 2007-03-16 00:34:00 -0400
 Actually switch to _receive_msg
 
 r19593@phanatique:  nelhage | 2007-03-16 00:34:27 -0400
 Some minor cleanup of perlwrap.pm. Shoving fake entries into @INC.
 
 r19594@phanatique:  nelhage | 2007-03-16 00:34:47 -0400
 First revision of ModuleLoader.
 

File:

• perlconfig.c (modified) (2 diffs)

perlconfig.c

@@ -422 +422 @@
   } else {
     char *ptr = NULL;
-    if (owl_perlconfig_is_function("BarnOwl::Hooks::receive_msg")) {
+    if (owl_perlconfig_is_function("BarnOwl::Hooks::_receive_msg")) {
       ptr = owl_perlconfig_call_with_message(subname?subname
                                        :"BarnOwl::_receive_msg_legacy_wrap", m);
@@ -506 +506 @@
 void owl_perlconfig_mainloop()
 {
-  if (!owl_perlconfig_is_function("BarnOwl::Hooks::mainloop_hook"))
+  if (!owl_perlconfig_is_function("BarnOwl::Hooks::_mainloop_hook"))
     return;
   dSP ;
   PUSHMARK(SP) ;
-  call_pv("BarnOwl::Hooks::mainloop_hook", G_DISCARD|G_EVAL);
+  call_pv("BarnOwl::Hooks::_mainloop_hook", G_DISCARD|G_EVAL);
   if(SvTRUE(ERRSV)) {
     STRLEN n_a;