Changeset 21bab95 for perl/lib

Timestamp:

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

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, 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.

Location:

perl/lib

Files:

• BarnOwl.pm (modified) (3 diffs)
• BarnOwl/AnyEvent.pm (modified) (2 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);

perl/lib/BarnOwl/AnyEvent.pm

@@ -12 +12 @@
                 mode => $mode,
                 fd => $fd };
-    bless($self, class);
+    bless($self, $class);
     $self->{dispatch} = BarnOwl::add_io_dispatch($fd, $mode, $cb);
     return $self;
@@ -25 +25 @@
 sub timer {
     my ($class, %arg) = @_;
-    return BarnOwl::Timer->new(%args);
+    return BarnOwl::Timer->new(\%arg);
 }
+
+sub DESTROY { }
 
 # sub idle {