diff options
| author | fukachan <fukachan> | 2004-02-13 14:11:12 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-02-13 14:11:12 +0000 |
| commit | 3164c784e4aa6c57f09236e7ea8c49f25d8016d6 (patch) | |
| tree | d71f623daae00eea7517ad34ac6a01559548fc12 | |
| parent | 254beb6490861a9cf83d219f01781204771018df (diff) | |
| download | fml8-3164c784e4aa6c57f09236e7ea8c49f25d8016d6.tar.gz fml8-3164c784e4aa6c57f09236e7ea8c49f25d8016d6.tar.bz2 fml8-3164c784e4aa6c57f09236e7ea8c49f25d8016d6.zip | |
ensure initial value of $min and $max
| -rw-r--r-- | fml/lib/FML/Article/Summary.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fml/lib/FML/Article/Summary.pm b/fml/lib/FML/Article/Summary.pm index 1eb91b2b..401ab321 100644 --- a/fml/lib/FML/Article/Summary.pm +++ b/fml/lib/FML/Article/Summary.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: Summary.pm,v 1.17 2004/02/04 15:19:13 fukachan Exp $ +# $FML: Summary.pm,v 1.18 2004/02/06 13:21:27 fukachan Exp $ # package FML::Article::Summary; @@ -238,11 +238,13 @@ sub rebuild use FileHandle; my $wh = new FileHandle ">> $tmp"; - - # XXX-TODO: $min, $max is mandatory if (defined $wh) { $wh->autoflush(1); + # speculate boundary if not specified. + $min ||= 1; + $max ||= $curproc->article_max_id(); + for my $id ($min .. $max) { $self->print($wh, $id); } |