Changeset 2fe7c45 for perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm

Timestamp:

Jun 11, 2011, 3:52:24 PM (13 years ago)

Author:

Karl Ramm <xyzzy-github@1ts.org>

Branches:

master, release-1.10, release-1.8, release-1.9

Children:

431fcd8, 5b197f7

Parents:

83a4af3 (diff), a27acf7 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge pull request #24 from ezyang/master

Handle Jabber nicks with leading dashes (e.g. Facebook XMPP)

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
Reviewed-By: Karl Ramm <kcr@1ts.org>

File:

• perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm (modified) (1 diff)

perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm

@@ -161 +161 @@
     my ($recip, $account, $subject) = @_;
     if (defined $recip) {
-        my @cmd = ('jwrite', $recip, '-a', $account);
+        my @cmd = ('jwrite', '-a', $account);
         if (defined $subject) {
             push @cmd, '-s', $subject;
         }
+        push @cmd, '--', $recip;
         return BarnOwl::quote(@cmd);
     } else {