Changeset 21bab95 for perl


Ignore:
Timestamp:
Apr 3, 2011, 3:05:59 PM (13 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:
2 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl.pm

    r0b20de4 r21bab95  
    33
    44package BarnOwl;
     5# AnyEvent needs a VERSION to autodetect us as being loaded. Throw in
     6# a dummy one.
     7our $VERSION = 1;
    58
    69use base qw(Exporter);
     
    2932use lib(get_config_dir() . "/lib");
    3033
    31 push @AnyEvent::REGISTRY, [BarnOwl => BarnOwl::AnyEvent::];
    32 
    3334use BarnOwl::Hook;
    3435use BarnOwl::Hooks;
     
    4041use BarnOwl::Completion;
    4142use BarnOwl::Help;
     43use BarnOwl::AnyEvent;
     44
     45unshift @AnyEvent::REGISTRY, [BarnOwl => BarnOwl::AnyEvent::];
     46require AnyEvent;
    4247
    4348use List::Util qw(max);
  • perl/lib/BarnOwl/AnyEvent.pm

    r0b20de4 r21bab95  
    1212                mode => $mode,
    1313                fd => $fd };
    14     bless($self, class);
     14    bless($self, $class);
    1515    $self->{dispatch} = BarnOwl::add_io_dispatch($fd, $mode, $cb);
    1616    return $self;
     
    2525sub timer {
    2626    my ($class, %arg) = @_;
    27     return BarnOwl::Timer->new(%args);
     27    return BarnOwl::Timer->new(\%arg);
    2828}
     29
     30sub DESTROY { }
    2931
    3032# sub idle {
Note: See TracChangeset for help on using the changeset viewer.