Changeset bb2c60d for perlwrap.pm

Timestamp:

Mar 5, 2007, 9:00:24 PM (17 years ago)

Author:

Alejandro R. Sedeño <asedeno@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:

d08162a

Parents:

2058d7a

Message:

perlwrap.pm: getting rid of one more mainloop_hook error message.
zephyr.c: reworking zephyr subscription process (again).
  * Sub all at once if possible.
  * Don't sub to zpunt lines.

File:

• perlwrap.pm (modified) (1 diff)

perlwrap.pm

@@ -502 +502 @@
     # use $shutdown to tell modules that that's what we're doing.
     $BarnOwl::shutdown = 1;
-    BarnOwl::mainloop_hook();
+    BarnOwl::mainloop_hook() if *BarnOwl::mainloop_hook{CODE};
 
     BarnOwl::shutdown() if *BarnOwl::shutdown{CODE};