Changes in perl/modules/Twitter/lib/BarnOwl/Message/Twitter.pm [5d59c1e:f6413c3]

File:

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

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

@@ -17 +17 @@
 sub service { return (shift->{"service"} || "http://twitter.com"); }
 sub account { return shift->{"account"}; }
-sub retweeted_by { shift->{retweeted_by}; }
 sub long_sender {
     my $self = shift;
     $self->service =~ m#^\s*(.*?://.*?)/.*$#;
     my $service = $1 || $self->service;
-    my $long = $service . '/' . $self->sender;
-    if ($self->retweeted_by) {
-        $long = "(retweeted by " . $self->retweeted_by . ") $long";
-    }
-    return $long;
+    return $service . '/' . $self->sender
 }