From fe67e2dfdfc69308f63fc9098c3930b1d3b50769 Mon Sep 17 00:00:00 2001
From: "Andreas J. Koenig" <k@k5.linux.bogus>
Date: Sat, 21 Mar 2009 13:12:37 +0100
Subject: [PATCH] repair sprintf with interpolation

---
 lib/File/Rsync/Mirror/Recentfile.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/File/Rsync/Mirror/Recentfile.pm b/lib/File/Rsync/Mirror/Recentfile.pm
index 8f329cf..9d2fff9 100644
--- a/lib/File/Rsync/Mirror/Recentfile.pm
+++ b/lib/File/Rsync/Mirror/Recentfile.pm
@@ -2068,8 +2068,8 @@ state of the tree limited by the current interval.
 
 =cut
 sub _resort {
-    my($self,$recent) = @_;
-    @$recent = sort { _bigfloatcmp($b->{epoch},$a->{epoch}) } @$recent;
+    my($self) = @_;
+    @{$_[1]} = sort { _bigfloatcmp($b->{epoch},$a->{epoch}) } @{$_[1]};
     return;
 }
 sub write_recent {
@@ -2078,7 +2078,8 @@ sub write_recent {
     my $Last_epoch;
  SANITYCHECK: for my $i (0..$#$recent) {
         if (defined $Last_epoch && _bigfloatge($recent->[$i]{epoch},$Last_epoch)) {
-            warn sprintf "Warning: not-monotonic sequence '$recent->[$i]{epoch}'>='$Last_epoch', resorting %s\n", $self->interval;
+            warn sprintf "Warning: disorder '%s'>='%s', re-sorting %s\n",
+                $recent->[$i]{epoch}, $Last_epoch, $self->interval;
             $DB::single++;
             $self->_resort($recent);
             last SANITYCHECK;
-- 
2.11.4.GIT