From 0663f14cf7cb49189352a9c35ce649f3ad10de8b Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 18 Mar 2011 16:29:42 -0400
Subject: Fix support for remotes with '.' in their names.

---
 GitRepo.hs       | 2 +-
 debian/changelog | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/GitRepo.hs b/GitRepo.hs
index a62d76596..34a59a10d 100644
--- a/GitRepo.hs
+++ b/GitRepo.hs
@@ -404,7 +404,7 @@ configRemotes repo = mapM construct remotepairs
 		remotepairs = Map.toList $ filterremotes $ config repo
 		filterremotes = Map.filterWithKey (\k _ -> isremote k)
 		isremote k = startswith "remote." k && endswith ".url" k
-		remotename k = split "." k !! 1
+		remotename k = join "." $ reverse $ drop 1 $ reverse $ drop 1 $ split "." k
 		construct (k,v) = do
 			r <- gen v
 			return $ r { remoteName = Just $ remotename k }
diff --git a/debian/changelog b/debian/changelog
index 81257a24b..e1c0576e8 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,6 +1,7 @@
 git-annex (0.20110317) UNRELEASED; urgency=low
 
   * Fix dropping of files using the URL backend.
+  * Fix support for remotes with '.' in their names.
 
  -- Joey Hess <joeyh@debian.org>  Thu, 17 Mar 2011 11:46:53 -0400
 
-- 
cgit v1.2.3