Allow existing CVS_RSH environment var to take precedent.

Submitted by:	sobomax

1 files changed, 4 insertions, 2 deletions

diff --git a/Tools/scripts/addport b/Tools/scripts/addport
index b942e3f3b04e..c8eba80582e0 100755
--- a/Tools/scripts/addport
+++ b/Tools/scripts/addport
@@ -32,7 +32,9 @@ my $tmpdir;
 my $pwd;
 my $repo;
 my $ssh;
-$ENV{CVS_RSH} = "ssh";
+if( !defined $ENV{"CVS_RSH"} ) {
+	$ENV{CVS_RSH} = "ssh";
+}
 my $make = "make";
 my $portlint = "portlint -N -a -c";
 my $perl = "perl";
@@ -45,7 +47,7 @@ my $category;
 # now check to make sure this isn't running on freefall
 chomp(my $myhost = lc(`hostname`));
 if ($myhost ne lc($h)) {
-	$ssh = "ssh $u\@$h";
+	$ssh = "$ENV{CVS_RSH} $u\@$h";
 	$repo = "$u\@$h:/home/ncvs";
 } else {
 	$ssh = "";