From: Dan Boger Date: Tue, 1 Dec 2009 20:22:23 +0000 (-0800) Subject: When using the native retweet, don't check line length. X-Git-Url: https://git.sommitrealweird.co.uk/twirssi-net-twitter-lite.git/commitdiff_plain/8e5b157dcd5505e3a7f9cf7b6d09bac04adc2028 When using the native retweet, don't check line length. --- diff --git a/twirssi.pl b/twirssi.pl index b7c1ead..3ee8a06 100644 --- a/twirssi.pl +++ b/twirssi.pl @@ -11,7 +11,7 @@ $Data::Dumper::Indent = 1; use vars qw($VERSION %IRSSI); -$VERSION = "2.3.3"; +$VERSION = "2.3.4beta"; %IRSSI = ( authors => 'Dan Boger', contact => 'zigdon@gmail.com', @@ -178,7 +178,7 @@ sub cmd_retweet_as { my $modified = $data; $data = &shorten($text); - return if &too_long($data); + return if $modified and &too_long($data); my $success = 1; eval {