diff options
| author | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2008-02-07 20:31:11 +0100 |
|---|---|---|
| committer | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2008-02-07 20:31:11 +0100 |
| commit | 378a912bf79e1e5b6384b02b14919371ac0c4785 (patch) | |
| tree | a7969b83c550188e093ac7e5b4aa5a6542908fd5 /lib/LXRng/Repo/Git.pm | |
| parent | f5277f0a49bfb6eb48c27de4d644b2f9e2f94e4f (diff) | |
Provisions for mod_perl use, take one.
Diffstat (limited to 'lib/LXRng/Repo/Git.pm')
| -rw-r--r-- | lib/LXRng/Repo/Git.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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, $$); } |