diff options
| author | fukachan <fukachan> | 2004-03-27 09:25:45 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-03-27 09:25:45 +0000 |
| commit | fedc4e40d6d10b7bff547831e1af49fe026d9ade (patch) | |
| tree | e1c25d2afe567d43f073f4e2d95deb38581d4ff8 /fml/lib | |
| parent | c354bb0e6f4b7fd2afd1bf848329a8c4598437ae (diff) | |
| download | fml8-fedc4e40d6d10b7bff547831e1af49fe026d9ade.tar.gz fml8-fedc4e40d6d10b7bff547831e1af49fe026d9ade.tar.bz2 fml8-fedc4e40d6d10b7bff547831e1af49fe026d9ade.zip | |
check if the sequence is positive value.
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/Mail/Message/MH.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/Mail/Message/MH.pm b/fml/lib/Mail/Message/MH.pm index 85e6d82f..6bca29ae 100644 --- a/fml/lib/Mail/Message/MH.pm +++ b/fml/lib/Mail/Message/MH.pm @@ -2,7 +2,7 @@ # # Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi # -# $FML: MH.pm,v 1.16 2003/07/21 04:51:34 fukachan Exp $ +# $FML: MH.pm,v 1.17 2004/01/24 09:04:00 fukachan Exp $ # package Mail::Message::MH; @@ -121,7 +121,7 @@ sub _expand_range my ($first, $last) = @_; my (@fn) = (); - for my $n ($first .. $last) { push(@fn, $n);} + for my $n ($first .. $last) { push(@fn, $n) if $n > 0;} return \@fn; } |