Fix display of truncated native retweets
authorDan Boger <zigdon@irc.peeron.com>
Mon, 14 Dec 2009 19:56:17 +0000 (11:56 -0800)
committerDan Boger <zigdon@irc.peeron.com>
Mon, 14 Dec 2009 19:56:17 +0000 (11:56 -0800)
twirssi.pl

index 221e086162972b15a0bd4a4cf19a1c5d5a7be20e..fd2a48fffe0bcbd651c954942c0841b2a1213fa7 100644 (file)
@@ -1664,7 +1664,7 @@ sub get_text {
     my $text   = decode_entities( $tweet->{text} );
     if ( $tweet->{truncated} ) {
         if ( exists $tweet->{retweeted_status} ) {
-            $text = "RT $tweet->{retweeted_status}{user}{screen_name}: "
+            $text = "RT \@$tweet->{retweeted_status}{user}{screen_name}: "
               . "$tweet->{retweeted_status}{text}";
         } elsif ( $object->isa('Net::Twitter') ) {
             $text .= " -- http://twitter.com/$tweet->{user}{screen_name}"