1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-25 04:43:33 +00:00

Allow existing CVS_RSH environment var to take precedent.

This commit is contained in:
Maxim Sobolev 2000-07-04 09:55:31 +00:00
parent 5260fdf083
commit 54f7240973
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=30171

View File

@ -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;