Changeset 8106870 for perl

Timestamp:

Sep 9, 2010, 1:24:28 AM (14 years ago)

Author:

Anders Kaseorg <andersk@mit.edu>

Branches:

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

Children:

f544216

Parents:

ad7cc2f

git-author:

Anders Kaseorg <andersk@mit.edu> (09/08/10 22:30:38)

git-committer:

Anders Kaseorg <andersk@mit.edu> (09/09/10 01:24:28)

Message:

Twitter: BarnOwl::quote the replycmd

Signed-off-by: Anders Kaseorg <andersk@mit.edu>
Reviewed-by: Nelson Elhage <nelhage@mit.edu>

File:

• perl/modules/Twitter/lib/BarnOwl/Message/Twitter.pm (modified) (2 diffs)

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

@@ -34 +34 @@
         return $self->replysendercmd;
     } elsif(exists($self->{status_id})) {
-        return 'twitter-atreply ' . $self->sender . " " . $self->{status_id} . " " . $self->account;
+        return BarnOwl::quote('twitter-atreply', $self->sender, $self->{status_id}, $self->account);
     } else {
-        return 'twitter-atreply ' . $self->sender . " " . $self->account;
+        return BarnOwl::quote('twitter-atreply', $self->sender, $self->account);
     }
 }
@@ -42 +42 @@
 sub replysendercmd {
     my $self = shift;
-    return 'twitter-direct ' . $self->sender . " " . $self->account;
+    return BarnOwl::quote('twitter-direct', $self->sender, $self->account);
 }