diff options
| author | fukachan <fukachan> | 2006-10-08 09:10:27 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-10-08 09:10:27 +0000 |
| commit | 37e88ea412d254ac411fd22beafb1ce661a16426 (patch) | |
| tree | 5da3c96b19bde68dbdee3e31da25c99f40dfee02 /fml/lib/FML/Demo/Project.pm | |
| parent | 21a35b74967f3cba5be8fd26cc3541e6cf09b4b5 (diff) | |
| download | fml8-37e88ea412d254ac411fd22beafb1ce661a16426.tar.gz fml8-37e88ea412d254ac411fd22beafb1ce661a16426.tar.bz2 fml8-37e88ea412d254ac411fd22beafb1ce661a16426.zip | |
fix label usage.
fix regexp bug.
Diffstat (limited to 'fml/lib/FML/Demo/Project.pm')
| -rw-r--r-- | fml/lib/FML/Demo/Project.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fml/lib/FML/Demo/Project.pm b/fml/lib/FML/Demo/Project.pm index ee5a1ea1..b8b5ea75 100644 --- a/fml/lib/FML/Demo/Project.pm +++ b/fml/lib/FML/Demo/Project.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Project.pm,v 1.3 2006/09/24 10:24:20 fukachan Exp $ +# $FML: Project.pm,v 1.4 2006/10/08 06:33:31 fukachan Exp $ # package FML::Demo::Project; @@ -61,7 +61,7 @@ sub parse LINE: while ($buf = <$rh>) { - next if $buf =~ /^\#/o; + next LINE if $buf =~ /^\#/o; $level = 0; $date_list = []; @@ -96,7 +96,7 @@ sub parse $date_list = $self->_get_canonical_date_list($s); next DATA; } - elsif ($s =~ /^DONE|WAIT$/) { + elsif ($s =~ /^(DONE|WAIT)$/) { $status = $s; next DATA; } |