[PATCH] contacts: allow execution from other directories

From: Thomas Gummerer <t.gummerer@gmail.com>
Date: Sep 17, 2013, 12:50 UTC
Message-ID: <1379422246-12818-1-git-send-email-t.gummerer@gmail.com>

Currently git-contacts only works if it is executed from the top level of the git repository. Enable the execution in sub directories of that repository.

Signed-off-by: Thomas Gummerer <t.gummerer@gmail.com>
---

I have no experience in perl, so there may be nicer implementations.  It works when tested manually.

 contrib/contacts/git-contacts | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/contrib/contacts/git-contacts b/contrib/contacts/git-contacts
index fb6429b..32f03fc 100755
--- a/contrib/contacts/git-contacts
+++ b/contrib/contacts/git-contacts
@@ -61,6 +61,9 @@ sub import_commits {
 sub get_blame {
 	my ($commits, $source, $from, $ranges) = @_;
 	return unless @$ranges;
+	my $git_dir = `git rev-parse --show-toplevel`;
+	chomp($git_dir);
+	$source = $git_dir . '/' . $source;
 	open my $f, '-|',
 		qw(git blame --porcelain -C),
 		map({"-L$_->[0],+$_->[1]"} @$ranges),

-- 
1.8.4.535.g7b94f8e.dirty