Changeset 3dcccba for perl

Timestamp:

Jul 7, 2008, 6:23:18 AM (17 years ago)

Author:

Geoffrey Thomas <geofft@mit.edu>

Branches:

barnowl_perlaim

Children:

61abb18

Parents:

7d63a6c

Message:

This would probably work, except it doesn't compile.

File:

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

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

@@ -37 +37 @@
 
 sub cmd_aimlogin { 
-=comment
     my ($cmd, $user, $pass) = @_;
     if (!defined $user) {
@@ -48 +47 @@
                 });
     } else {
-=cut
-    {
         my $oscar = Net::OSCAR->new();
-        my ($user, $pass) = ('...', '...');
         $oscar->set_callback_im_in(\&on_im_in);
         $oscar->set_callback_signon_done(sub ($) {