diff options
| author | fukachan <fukachan> | 2001-11-20 07:27:38 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-20 07:27:38 +0000 |
| commit | 221a60cb3b6403ed919734fd5c45572fd5afafaf (patch) | |
| tree | cc094442a9f3a629b70856f3fb0bdfec0c49d370 /fml/lib/File/Sequence.pm | |
| parent | d02e20290f7e430b88f2430cce4f68df9ce1c90f (diff) | |
| download | fml8-221a60cb3b6403ed919734fd5c45572fd5afafaf.tar.gz fml8-221a60cb3b6403ed919734fd5c45572fd5afafaf.tar.bz2 fml8-221a60cb3b6403ed919734fd5c45572fd5afafaf.zip | |
more debug
Diffstat (limited to 'fml/lib/File/Sequence.pm')
| -rw-r--r-- | fml/lib/File/Sequence.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/fml/lib/File/Sequence.pm b/fml/lib/File/Sequence.pm index f252edc4..dd36d99f 100644 --- a/fml/lib/File/Sequence.pm +++ b/fml/lib/File/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.9 2001/10/17 03:05:58 fukachan Exp $ +# $FML: Sequence.pm,v 1.10 2001/11/20 06:59:00 fukachan Exp $ # package File::Sequence; @@ -209,19 +209,26 @@ sub search_max_id my $hash = $args->{ hash }; ($pebot, $v) = each %$hash; + print STDERR "0. ", $pebot, "\n" if defined $ENV{'debug'}; + PEBOT_SEARCH: while (1) { last PEBOT_SEARCH unless defined $hash->{ $pebot + $unit }; $pebot += $unit; + print STDERR "1. ", $pebot, "\n" if defined $ENV{'debug'}; } # increment by 1. do { $pebot++; + print STDERR "2. ", $pebot, "\n" if defined $ENV{'debug'}; } while (defined $hash->{ $pebot + 1 }); return $pebot; } + else { + warn("no argument"); + } } |