Changeset a27acf7 for perl


Ignore:
Timestamp:
Jun 11, 2011, 9:35:10 AM (13 years ago)
Author:
Edward Z. Yang <ezyang@mit.edu>
Branches:
master, release-1.10, release-1.8, release-1.9
Children:
736835d, d6ab007
Parents:
83a4af3
git-author:
Edward Z. Yang <ezyang@mit.edu> (06/11/11 09:34:08)
git-committer:
Edward Z. Yang <ezyang@mit.edu> (06/11/11 09:35:10)
Message:
Handle Jabber nicks with leading dashes (e.g. Facebook XMPP)

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm

    rb401ef2 ra27acf7  
    161161    my ($recip, $account, $subject) = @_;
    162162    if (defined $recip) {
    163         my @cmd = ('jwrite', $recip, '-a', $account);
     163        my @cmd = ('jwrite', '-a', $account);
    164164        if (defined $subject) {
    165165            push @cmd, '-s', $subject;
    166166        }
     167        push @cmd, '--', $recip;
    167168        return BarnOwl::quote(@cmd);
    168169    } else {
Note: See TracChangeset for help on using the changeset viewer.