From 38ae1aaa3889bafda6825f0b0bbd3c3fc9f79d53 Mon Sep 17 00:00:00 2001
From: Dan Boger <zigdon@irc.peeron.com>
Date: Wed, 2 Dec 2009 13:46:25 -0800
Subject: [PATCH 1/1] 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.39.5