Honour CVS_SERVER.

This commit is contained in:
Sven Verdoolaege 2005-07-03 12:26:51 +02:00
parent a92bebe697
commit 8d0ea31175

View file

@ -148,6 +148,8 @@ sub conn {
my $pw = IO::Pipe->new();
my $pid = fork();
die "Fork: $!\n" unless defined $pid;
my $cvs = 'cvs';
$cvs = $ENV{CVS_SERVER} if exists $ENV{CVS_SERVER};
unless($pid) {
$pr->writer();
$pw->reader();
@ -155,7 +157,7 @@ sub conn {
dup2($pr->fileno(),1);
$pr->close();
$pw->close();
exec("cvs","server");
exec($cvs,"server");
}
$pw->writer();
$pr->reader();