From 378a912bf79e1e5b6384b02b14919371ac0c4785 Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@lxr.linpro.no>
Date: Thu, 7 Feb 2008 20:31:11 +0100
Subject: Provisions for mod_perl use, take one.

---
 lib/LXRng/Repo/Git.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib/LXRng/Repo/Git.pm')

diff --git a/lib/LXRng/Repo/Git.pm b/lib/LXRng/Repo/Git.pm
index 261f595..472c4c9 100644
--- a/lib/LXRng/Repo/Git.pm
+++ b/lib/LXRng/Repo/Git.pm
@@ -13,9 +13,10 @@ sub _git_cmd {
     my $git;
     my $pid = open($git, "-|");
     die $! unless defined $pid;
+    # warn("git --git-dir=".$$self{'root'}." $cmd @args");
+    
     if ($pid == 0) {
-	$ENV{'GIT_DIR'} = $$self{'root'};
-	exec('git', $cmd, @args);
+	exec('git', '--git-dir='.$$self{'root'}, $cmd, @args);
 	warn $!;
 	kill(9, $$);
     }
-- 
cgit v1.2.3