From: Dan Boger Date: Wed, 14 Jan 2009 05:05:48 +0000 (-0800) Subject: 1.7.4 - r358 - Remove ban on JSON::XS X-Git-Url: https://git.sommitrealweird.co.uk/twirssi-net-twitter-lite.git/commitdiff_plain/4089d45b48f00e9c39c5fb0eadc644dc76b5f742?hp=--cc 1.7.4 - r358 - Remove ban on JSON::XS --- 4089d45b48f00e9c39c5fb0eadc644dc76b5f742 diff --git a/twirssi.pl b/twirssi.pl index 9d374dc..282113c 100644 --- a/twirssi.pl +++ b/twirssi.pl @@ -6,20 +6,13 @@ use HTML::Entities; use File::Temp; use LWP::Simple; use Data::Dumper; +use Net::Twitter; $Data::Dumper::Indent = 1; -BEGIN { - $ENV{JSON_ANY_ORDER} = "JSON Syck DWIW"; - require JSON::Any; - import JSON::Any; - require Net::Twitter; - import Net::Twitter; -} - use vars qw($VERSION %IRSSI); -$VERSION = "1.7.3"; -my ($REV) = '$Rev: 354 $' =~ /(\d+)/; +$VERSION = "1.7.4"; +my ($REV) = '$Rev: 358 $' =~ /(\d+)/; %IRSSI = ( authors => 'Dan Boger', contact => 'zigdon@gmail.com', @@ -28,7 +21,7 @@ my ($REV) = '$Rev: 354 $' =~ /(\d+)/; . 'Can optionally set your bitlbee /away message to same', license => 'GNU GPL v2', url => 'http://tinyurl.com/twirssi', - changed => '$Date: 2009-01-08 14:46:04 -0800 (Thu, 08 Jan 2009) $', + changed => '$Date: 2009-01-13 21:02:17 -0800 (Tue, 13 Jan 2009) $', ); my $window; @@ -907,9 +900,10 @@ sub event_send_text { # if the window where we got our text was the twitter window, and the user # wants to be lazy, tweet away! - if ( ($awin->get_active_name() eq $window->{name}) - and Irssi::settings_get_bool("tweet_window_input") ) { - &cmd_tweet($line, $server, $win); + if ( ( $awin->get_active_name() eq $window->{name} ) + and Irssi::settings_get_bool("tweet_window_input") ) + { + &cmd_tweet( $line, $server, $win ); } }