summaryrefslogtreecommitdiff
path: root/fml
diff options
context:
space:
mode:
authorfukachan <fukachan>2003-12-30 08:24:55 +0000
committerfukachan <fukachan>2003-12-30 08:24:55 +0000
commit602d86bd3f907861fa467e5f4dc09b8a6f5342ad (patch)
treefa26443dbb65dcabe6fe9d3b591734fbfc3a2c17 /fml
parentd18888739c95c1a58a5445d5605d21ac27524c92 (diff)
downloadfml8-602d86bd3f907861fa467e5f4dc09b8a6f5342ad.tar.gz
fml8-602d86bd3f907861fa467e5f4dc09b8a6f5342ad.tar.bz2
fml8-602d86bd3f907861fa467e5f4dc09b8a6f5342ad.zip
fix typo
Diffstat (limited to 'fml')
-rw-r--r--fml/lib/FML/Article/Sequence.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/FML/Article/Sequence.pm b/fml/lib/FML/Article/Sequence.pm
index 8adb1cbc..bca1f059 100644
--- a/fml/lib/FML/Article/Sequence.pm
+++ b/fml/lib/FML/Article/Sequence.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: Sequence.pm,v 1.5 2003/08/23 14:37:59 fukachan Exp $
+# $FML: Sequence.pm,v 1.6 2003/12/30 08:22:36 fukachan Exp $
#
package FML::Article::Sequence;
@@ -169,7 +169,7 @@ sub speculate_max_id
my $max = 0;
my $fn = ''; # file name
- ENTRY
+ ENTRY:
while (defined($fn = $dh->read)) {
next ENTRY unless $fn =~ /^\d+$/;
$max = $max < $fn ? $fn : $max;