Changeset c25a20f for perl/modules

Timestamp:

Jan 26, 2007, 2:47:04 PM (18 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

0da506c

Parents:

7cdf756

Message:

Fixing a typo. This was keeping us from replying to full jids of
people in the roster, since it was taking the full jid from the roster
entry instead of the argument.

File:

• perl/modules/jabber.pl (modified) (1 diff)

perl/modules/jabber.pl

@@ -1383 +1383 @@
             return $j->GetJID('full');
         } elsif($j->GetJID('base') eq baseJID($to)) {
-            return $j->GetJID('full');
+            return $jid->GetJID('full');
         }
     }