projects
/
twirssi-net-twitter-lite.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8bfb860
)
1.7.4 - r358 - Remove ban on JSON::XS
author
Dan Boger
<zigdon@irc.peeron.com>
Wed, 14 Jan 2009 05:05:48 +0000
(21:05 -0800)
committer
Dan Boger
<zigdon@irc.peeron.com>
Wed, 14 Jan 2009 05:05:48 +0000
(21:05 -0800)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 9d374dc41fac23d14a9f24c641e4335c594ea15b..282113cec1b00ab3520ee1260442f543952ed0dd 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-6,20
+6,13
@@
use HTML::Entities;
use File::Temp;
use LWP::Simple;
use Data::Dumper;
use File::Temp;
use LWP::Simple;
use Data::Dumper;
+use Net::Twitter;
$Data::Dumper::Indent = 1;
$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);
use vars qw($VERSION %IRSSI);
-$VERSION = "1.7.
3
";
-my ($REV) = '$Rev: 35
4
$' =~ /(\d+)/;
+$VERSION = "1.7.
4
";
+my ($REV) = '$Rev: 35
8
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%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',
. '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;
);
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 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 );
}
}
}
}