git-cvsimport-script: Honour CVS_SERVER.
From: Sven Verdoolaege <hidden>
Date: 2016-06-15 22:42:01
Subsystem:
the rest · Maintainer:
Linus Torvalds
Honour CVS_SERVER. --- commit 8d0ea3117597933610e02907d14b443f8996ca3b tree 8a8aba2772a770082e7d6bd47abd42c3e239ed2c parent a92bebe6978edaea2885a627e7bef6f7f8b208c2 author Sven Verdoolaege [off-list ref] Sun, 03 Jul 2005 12:26:51 +0200 committer Sven Verdoolaege [off-list ref] Sun, 03 Jul 2005 12:26:51 +0200 git-cvsimport-script | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-)
diff --git a/git-cvsimport-script b/git-cvsimport-script
--- a/git-cvsimport-script
+++ b/git-cvsimport-script@@ -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();