From 54f7240973ed1aba62870e7b521b790a2ce6187b Mon Sep 17 00:00:00 2001
From: Maxim Sobolev <sobomax@FreeBSD.org>
Date: Tue, 4 Jul 2000 09:55:31 +0000
Subject: Allow existing CVS_RSH environment var to take precedent.

---
 Tools/scripts/getpr | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'Tools/scripts')

diff --git a/Tools/scripts/getpr b/Tools/scripts/getpr
index c9951cf10bbc..9656a6e6b24f 100755
--- a/Tools/scripts/getpr
+++ b/Tools/scripts/getpr
@@ -9,12 +9,19 @@ use strict;
 
 my $pr = shift;
 my $user = shift;
+my $ssh;
 
 if ($pr eq "") {
 	print STDERR "getpr prnum [username]\n";
 	exit 1
 }
 
+if( !defined $ENV{"CVS_RSH"} ) {
+        $ssh = "ssh";
+} else {
+	$ssh = $ENV{"CVS_RSH"};
+}
+
 if ($user ne "") {
 	$user = "$user@";
 }
@@ -23,7 +30,7 @@ if ($user ne "") {
 
 open(D, "> $pr") or die "$pr: $!";
 open(PATCH, "> pr-patch") or die "pr-patch: $!";
-open(PR, " ssh ${user}freefall.freebsd.org query-pr -F $pr | ") or die $!;
+open(PR, " ${ssh} ${user}freefall.freebsd.org query-pr -F $pr | ") or die $!;
 
 my $fix = "";
 my $infix = 0;
-- 
cgit v1.2.3