* add legacy_lists_api => 0 to new()

git-svn-id: https://lab.mitty.jp/svn/lab/trunk@166 7d2118f6-f56c-43e7-95a2-4bb3031d96e7

diff --git a/Dev/twitter/dump_timeline.pl b/Dev/twitter/dump_timeline.pl
index e800ac7..d7b2058 100755 (executable)
--- 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 (executable)
--- 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 (executable)
--- 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 (executable)
--- 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});