undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Honour CVS_SERVER.

Browse Source
This commit is contained in:
Sven Verdoolaege 2005-07-03 12:26:51 +02:00
parent a92bebe697
commit 8d0ea31175
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
git-cvsimport-script
View File

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