X-Git-Url: http://lab.mitty.jp/git/?a=blobdiff_plain;f=twitter%2Ftwitterbot.pl;h=eb9079d22b33ae7fa9dff1d0be555d202cb8e64c;hb=f3ef4f6728c7e6bfbd340eadb7baef02f20d4697;hp=7da7ec8339efc4530b37b031c13bc9c624eb8251;hpb=139622cd38e1b8e9dbf9cc73f5fbc2324592f3a1;p=lab.git

diff --git a/twitter/twitterbot.pl b/twitter/twitterbot.pl
index 7da7ec8..eb9079d 100755
--- a/twitter/twitterbot.pl
+++ b/twitter/twitterbot.pl
@@ -14,8 +14,9 @@ use FindBin qw($Bin);
 use YAML::Tiny;
 use Date::Parse qw(str2time);
 
-sub VERBOSE () { $ARGV[0] eq 'verbose' };
-sub DEBUG   () { VERBOSE or $ARGV[0] eq 'debug' };
+my $_execmode = $ARGV[0] || 0;
+sub VERBOSE () { $_execmode eq 'verbose' };
+sub DEBUG   () { VERBOSE or $_execmode eq 'debug' };
 use Data::Dumper;
 
 DEBUG and warn "$0: debug mode";