From 04e9595231da694ee425f426aaa79fb7fdf7c40e Mon Sep 17 00:00:00 2001
From: "Andreas J. Koenig" <andk@cpan.org>
Date: Sat, 19 Feb 2011 06:35:00 +0100
Subject: [PATCH] force the principal to be absolute right from the entry point

---
 Makefile.PL    | 1 +
 bin/rrr-server | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/Makefile.PL b/Makefile.PL
index 75884f3..eebec92 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -74,6 +74,7 @@ WriteMakefile
       'File::Basename'   => 0,
       'File::Find::Rule' => 0,
       'File::Path'       => 0,
+      'File::Spec'       => 0,
       'File::Temp'       => 0.21, # removes bogus test on parent directory
       'List::MoreUtils'  => 0,
       'List::Pairwise'   => 0,
diff --git a/bin/rrr-server b/bin/rrr-server
index 48d831a..6d9c9eb 100755
--- a/bin/rrr-server
+++ b/bin/rrr-server
@@ -66,6 +66,8 @@ if (@ARGV != 1) {
 }
 
 my($principal) = @ARGV;
+use File::Spec ();
+$principal = File::Spec->rel2abs($principal);
 my $recc = File::Rsync::Mirror::Recent->new
     (local => $principal);
 my($rf) = $recc->principal_recentfile;
-- 
2.11.4.GIT