From 38ae1aaa3889bafda6825f0b0bbd3c3fc9f79d53 Mon Sep 17 00:00:00 2001 From: Dan Boger Date: Wed, 2 Dec 2009 13:46:25 -0800 Subject: [PATCH] Tidy --- twirssi.pl | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/twirssi.pl b/twirssi.pl index 3d292f4..221e086 100644 --- a/twirssi.pl +++ b/twirssi.pl @@ -968,7 +968,7 @@ sub do_updates { } foreach my $t ( reverse @$tweets ) { - my $text = &get_text($t, $obj); + my $text = &get_text( $t, $obj ); my $reply = "tweet"; if ( Irssi::settings_get_bool("show_reply_context") and $t->{in_reply_to_screen_name} ne $username @@ -1659,16 +1659,15 @@ sub normalize_username { } sub get_text { - my $tweet = shift; + my $tweet = shift; my $object = shift; - my $text = decode_entities( $tweet->{text} ); - if ($tweet->{truncated}) { - if (exists $tweet->{retweeted_status}) { - $text = "RT $tweet->{retweeted_status}{user}{screen_name}: " . - "$tweet->{retweeted_status}{text}"; + my $text = decode_entities( $tweet->{text} ); + if ( $tweet->{truncated} ) { + if ( exists $tweet->{retweeted_status} ) { + $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}" + $text .= " -- http://twitter.com/$tweet->{user}{screen_name}" . "/status/$tweet->{id}"; } } -- 2.30.2