Changeset 5fcf137 for perl/modules/AIM/lib/BarnOwl

Timestamp:

Jun 1, 2008, 4:02:46 AM (16 years ago)

Author:

Geoffrey Thomas <geofft@mit.edu>

Branches:

barnowl_perlaim

Children:

403198c

Parents:

a1c2f06

Message:

Potential fix to Net::OSCAR to make it deal with coderefs in @INC

File:

• perl/modules/AIM/lib/BarnOwl/Module/AIM.pm (modified) (2 diffs)

perl/modules/AIM/lib/BarnOwl/Module/AIM.pm

@@ -27 +27 @@
                 });
     } else {
-        $oscar = Net::OSCAR->new();
+        my $oscar = Net::OSCAR->new();
         $oscar->set_callback_im_in(\&on_im_in);
         $oscar->signon($user, $pass);
@@ -43 +43 @@
     BarnOwl::queue_message($msg);
 }
+
+BarnOwl::new_command(aimlogin => \&cmd_aimlogin, {});
+
+1;