kernel
/
git
mirror of https://git.kernel.org/pub/scm/git/git.git
1
0
Fork 0
Code Releases Activity
Browse Source

Honour CVS_SERVER.

maint
Sven Verdoolaege 20 years ago
parent
a92bebe697
commit
8d0ea31175
1 changed files with 3 additions and 1 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 4
      git-cvsimport-script

4
git-cvsimport-script
Unescape 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();

Write Preview
Loading…
Cancel
Save