Changeset c854e74 for perl/modules


Ignore:
Timestamp:
Aug 20, 2009, 2:46:46 AM (12 years ago)
Author:
Anders Kaseorg <andersk@mit.edu>
Branches:
master, 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:
1 edited

Legend:

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

    rcdaf294 rc854e74  
    143143    my ($recip, $account, $subject) = @_;
    144144    if (defined $recip) {
    145         $recip   = BarnOwl::quote($recip);
    146         $account = BarnOwl::quote($account);
    147         my $cmd = "jwrite $recip -a $account";
     145        my @cmd = ('jwrite', $recip, '-a', $account);
    148146        if (defined $subject) {
    149             $cmd .= " -s " . BarnOwl::quote($subject);
     147            push @cmd, '-s', $subject;
    150148        }
    151         return $cmd;
     149        return BarnOwl::quote(@cmd);
    152150    } else {
    153151        return undef;
Note: See TracChangeset for help on using the changeset viewer.