Changeset 21bab95 for perl/lib/BarnOwl.pm

Timestamp:

Apr 3, 2011, 3:05:59 PM (11 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.8, release-1.9

Children:

f2d71cfa

Parents:

0b20de4

git-author:

Nelson Elhage <nelhage@nelhage.com> (02/24/11 09:58:12)

git-committer:

Nelson Elhage <nelhage@mit.edu> (04/03/11 15:05:59)

Message:

Fix some bugs in asedeno's AnyEvent implementation.

File:

• perl/lib/BarnOwl.pm (modified) (3 diffs)

perl/lib/BarnOwl.pm

@@ -3 +3 @@
 
 package BarnOwl;
+# AnyEvent needs a VERSION to autodetect us as being loaded. Throw in
+# a dummy one.
+our $VERSION = 1;
 
 use base qw(Exporter);
@@ -29 +32 @@
 use lib(get_config_dir() . "/lib");
 
-push @AnyEvent::REGISTRY, [BarnOwl => BarnOwl::AnyEvent::];
-
 use BarnOwl::Hook;
 use BarnOwl::Hooks;
@@ -40 +41 @@
 use BarnOwl::Completion;
 use BarnOwl::Help;
+use BarnOwl::AnyEvent;
+
+unshift @AnyEvent::REGISTRY, [BarnOwl => BarnOwl::AnyEvent::];
+require AnyEvent;
 
 use List::Util qw(max);