Changeset c854e74 for perl/modules/Jabber

Timestamp:

Aug 20, 2009, 2:46:46 AM (15 years ago)

Author:

Anders Kaseorg <andersk@mit.edu>

Branches:

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

Children:

3a6277a

Parents:

7011c3dc

git-author:

Anders Kaseorg <andersk@mit.edu> (08/20/09 02:19:10)

git-committer:

Anders Kaseorg <andersk@mit.edu> (08/20/09 02:46:46)

Message:

BarnOwl::Message::Jabber: Use multi-argument quote.

Signed-off-by: Anders Kaseorg <andersk@mit.edu>

File:

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

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

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