< -> <= :)

diff --git a/cmd/catchup.pl b/cmd/catchup.pl
index e2f439040921652d9198cf7f719a93e51c55a7cf..20020067b8d90a87e4750c24cc0c0ae7e70d4231 100644 (file)
--- a/cmd/catchup.pl
+++ b/cmd/catchup.pl
@@ -29,7 +29,7 @@ foreach my $msgno (@f) {
                @ref = DXMsg::get_all();
                last;
        } elsif (my ($f, $t) = $msgno =~ /(\d+)-(\d+)/) {
-               while ($f < $t) {
+               while ($f <= $t) {
                        $ref = DXMsg::get($f++);
                        push @ref, $ref if $ref;
                }

diff --git a/cmd/uncatchup.pl b/cmd/uncatchup.pl
index 4046107141c2e6a6e225eb9be7f0fbb341972d7e..fb54f7e25e64a4148ee87080e7d1b83ae0483a9c 100644 (file)
--- a/cmd/uncatchup.pl
+++ b/cmd/uncatchup.pl
@@ -29,7 +29,7 @@ foreach my $msgno (@f) {
                @ref = DXMsg::get_all();
                last;
        } elsif (my ($f, $t) = $msgno =~ /(\d+)-(\d+)/) {
-               while ($f < $t) {
+               while ($f <= $t) {
                        $ref = DXMsg::get($f++);
                        push @ref, $ref if $ref;
                }