Changeset 27767

Timestamp:

01/02/09 15:35:13 (4 years ago)

Author:

daisuke

Message:

make sure the value is defined, or else we risk an infinite loop

Files:

• lang/perl/Morris/trunk/lib/Morris/Plugin/Channel/Time.pm (modified) (2 diffs)

lang/perl/Morris/trunk/lib/Morris/Plugin/Channel/Time.pm

@@ -48 +48 @@
             my $cur = DateTime->now(time_zone => 'Asia/Tokyo');
             my $x   = $WDAY2INDEX{lc $3};
+            return unless defined $x;
 
             do {
@@ -63 +64 @@
             my $cur = DateTime->now(time_zone => 'Asia/Tokyo');
             my $x   = $WDAY2INDEX{lc $3};
+            return unless defined $x;
 
             do {