From 43d739e1bca5a73407ee3433a578c641e796106a Mon Sep 17 00:00:00 2001 From: mitty Date: Sun, 23 Sep 2012 03:58:48 +0000 Subject: [PATCH] * add legacy_lists_api => 0 to new() git-svn-id: https://lab.mitty.jp/svn/lab/trunk@166 7d2118f6-f56c-43e7-95a2-4bb3031d96e7 --- Dev/twitter/dump_timeline.pl | 1 + Dev/twitter/show_status.pl | 4 +++- Dev/twitter/twitterbot.pl | 1 + Dev/twitter/update_timeline.pl | 1 + 4 files changed, 6 insertions(+), 1 deletion(-) diff --git a/Dev/twitter/dump_timeline.pl b/Dev/twitter/dump_timeline.pl index e800ac7..d7b2058 100755 --- a/Dev/twitter/dump_timeline.pl +++ b/Dev/twitter/dump_timeline.pl @@ -142,6 +142,7 @@ sub login { my $bot = Net::Twitter::Lite->new( consumer_key => $conf->{consumer_key}, consumer_secret => $conf->{consumer_secret}, + legacy_lists_api => 0, ); $bot->access_token($conf->{access_token}); diff --git a/Dev/twitter/show_status.pl b/Dev/twitter/show_status.pl index 22fa3d0..ee45ace 100755 --- a/Dev/twitter/show_status.pl +++ b/Dev/twitter/show_status.pl @@ -12,7 +12,9 @@ use utf8; use Net::Twitter::Lite; use Data::Dumper; -my $bot = Net::Twitter::Lite->new; +my $bot = Net::Twitter::Lite->new( + legacy_lists_api => 0, +); my $dump; if (defined $ARGV[0] and $ARGV[0] eq "-d") { diff --git a/Dev/twitter/twitterbot.pl b/Dev/twitter/twitterbot.pl index ae37ea6..bb7baa0 100755 --- a/Dev/twitter/twitterbot.pl +++ b/Dev/twitter/twitterbot.pl @@ -178,6 +178,7 @@ sub login { my $bot = Net::Twitter::Lite->new( consumer_key => $conf->{consumer_key}, consumer_secret => $conf->{consumer_secret}, + legacy_lists_api => 0, ); $bot->access_token($conf->{access_token}); diff --git a/Dev/twitter/update_timeline.pl b/Dev/twitter/update_timeline.pl index 1afcdf4..633db89 100755 --- a/Dev/twitter/update_timeline.pl +++ b/Dev/twitter/update_timeline.pl @@ -94,6 +94,7 @@ sub login { my $bot = Net::Twitter::Lite->new( consumer_key => $conf->{consumer_key}, consumer_secret => $conf->{consumer_secret}, + legacy_lists_api => 0, ); $bot->access_token($conf->{access_token}); -- 1.7.9.5