From: Vincent Pit <vince@profvince.com>
Date: Tue, 7 Oct 2008 20:27:35 +0000 (+0200)
Subject: Set a process group when possible
X-Git-Tag: v0.04~5
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Frgit.git;a=commitdiff_plain;h=03469a4e200c6c9cf84a10a005e3e1aca7e848c6

Set a process group when possible
---

diff --git a/bin/rgit b/bin/rgit
index 2efd7b8..ca7b0f3 100755
--- a/bin/rgit
+++ b/bin/rgit
@@ -4,6 +4,7 @@ use strict;
 use warnings;
 
 use Carp qw/croak/;
+use Config qw/%Config/;
 use Cwd qw/cwd/;
 use File::Spec::Functions qw/catfile path/;
 use List::Util qw/first/;
@@ -44,6 +45,8 @@ BEGIN {
  }
 }
 
+setpgrp 0, 0 if $Config{d_setpgrp};
+
 my $cmd = first { !/^-/ } @ARGV;
 $cmd = ' ' unless defined $cmd;