X-Git-Url: https://git.sommitrealweird.co.uk/twirssi-net-twitter-lite.git/blobdiff_plain/38ae1aaa3889bafda6825f0b0bbd3c3fc9f79d53..1da24996a0415d1db4c6e971ec8b4e8f7f965b81:/twirssi.pl?ds=inline

diff --git a/twirssi.pl b/twirssi.pl
index 221e086..267db11 100644
--- a/twirssi.pl
+++ b/twirssi.pl
@@ -7,6 +7,7 @@ use File::Temp;
 use LWP::Simple;
 use Data::Dumper;
 use Encode;
+use POSIX qw/:sys_wait_h/;
 $Data::Dumper::Indent = 1;
 
 use vars qw($VERSION %IRSSI);
@@ -1185,6 +1186,9 @@ sub monitor_child {
       if &debug;
     my ($new_last_poll);
 
+    # reap any random leftover processes - work around a bug in irssi on gentoo
+    waitpid(-1, WNOHANG);
+
     # first time we run we don't want to print out *everything*, so we just
     # pretend
 
@@ -1664,7 +1668,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}"