Changeset 64 in lab

Timestamp:

Oct 5, 2010 9:48:40 AM (14 years ago)

Author:

mitty

Message:

• FIX: warning 'Use of uninitialized value $ARGV[0]' on non debug mode

File:

• trunk/twitter/twitterbot.pl (modified) (1 diff)

trunk/twitter/twitterbot.pl

@@ -15 +15 @@
 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;