From 78aea54ee2959ceaaf68040539f0d4e77235d484 Mon Sep 17 00:00:00 2001 From: "Andreas J. Koenig" Date: Fri, 26 Sep 2008 08:51:31 +0200 Subject: [PATCH] add reminder-comments that bigfloat might be in order --- lib/File/Rsync/Mirror/Recentfile.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lib/File/Rsync/Mirror/Recentfile.pm b/lib/File/Rsync/Mirror/Recentfile.pm index 2d34269..c6e4fa8 100644 --- a/lib/File/Rsync/Mirror/Recentfile.pm +++ b/lib/File/Rsync/Mirror/Recentfile.pm @@ -783,6 +783,7 @@ sub merge { $oldest_allowed = min($epoch - $secs, $merged->{epoch}); } # throw away outsiders + # XXX _bigfloat! while (@$my_recent && $my_recent->[-1]{epoch} < $oldest_allowed) { pop @$my_recent; $something_done=1; @@ -1620,6 +1621,7 @@ sub update { $recent ||= []; my $oldest_allowed = 0; if (my $merged = $self->merged) { + # XXX _bigfloat! $oldest_allowed = min($epoch - $secs, $merged->{epoch}); } else { # as long as we are not merged at all, no limits! -- 2.11.4.GIT