Honour CVS_SERVER.

git-mirror · Jul 3, 2005 · 8d0ea31 · 8d0ea31
1 parent a92bebe
commit 8d0ea31
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/git-cvsimport-script b/git-cvsimport-script
@@ -148,14 +148,16 @@ 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();
 			dup2($pw->fileno(),0);
 			dup2($pr->fileno(),1);
 			$pr->close();
 			$pw->close();
-			exec("cvs","server");
+			exec($cvs,"server");
 		}
 		$pw->writer();
 		$pr->reader();