Honour CVS_SERVER.
authorSven Verdoolaege <skimo@kotnet.org>
Sun, 3 Jul 2005 10:26:51 +0000 (12:26 +0200)
committerSven Verdoolaege <skimo@kotnet.org>
Sun, 3 Jul 2005 10:26:51 +0000 (12:26 +0200)
git-cvsimport-script

index dffd134e63b2f37fb59631d2884afaa13a7625d3..c514d14c3f2988dd8d7e3fb415a085d60d05757e 100755 (executable)
@@ -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();