X-Git-Url: https://git.sommitrealweird.co.uk/twirssi-net-twitter-lite.git/blobdiff_plain/7c59c295100f61ae80a67e7359fd2985509ab885..8e5b157dcd5505e3a7f9cf7b6d09bac04adc2028:/twirssi.pl 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 {