Update of /cvsroot/mhonarc/devtools/bin
In directory subversions:/tmp/cvs-serv8593/bin
Modified Files:
release
Log Message:
release:
+ Will preserve CSH_RSH envariable for cases where interaction with
CVS respository is via ssh.
Index: release
===================================================================
RCS file: /cvsroot/mhonarc/devtools/bin/release,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** release 7 May 2002 22:19:27 -0000 1.14
--- release 7 May 2002 22:45:16 -0000 1.15
***************
*** 151,154 ****
--- 151,156 ----
@rhosts = @{$opt{'rhost'}} if $opt{'rhost'};
+ my @cvs = ('cvs', '-d', $cvsroot);
+
my($version, $override) =
determine_version($reldir, shift(@ARGV),
***************
*** 198,210 ****
$ENV{'TZ'} = $ENV_ORG{'TZ'}
if defined $ENV_ORG{'TZ'};
$ENV{'SSH_AGENT_PID'} = $ENV_ORG{'SSH_AGENT_PID'}
if defined $ENV_ORG{'SSH_AGENT_PID'};
$ENV{'SSH_AUTH_SOCK'} = $ENV_ORG{'SSH_AUTH_SOCK'}
if defined $ENV_ORG{'SSH_AUTH_SOCK'};
- $ENV{'SSH_CLIENT'} = $ENV_ORG{'SSH_CLIENT'}
- if defined $ENV_ORG{'SSH_CLIENT'};
$ENV{'SSH_TTY'} = $ENV_ORG{'SSH_TTY'}
if defined $ENV_ORG{'SSH_TTY'};
## Run a test build
my $testname = ",test-$version";
--- 200,213 ----
$ENV{'TZ'} = $ENV_ORG{'TZ'}
if defined $ENV_ORG{'TZ'};
+ $ENV{'CVS_RSH'} = $ENV_ORG{'CVS_RSH'}
+ if defined $ENV_ORG{'CVS_RSH'};
$ENV{'SSH_AGENT_PID'} = $ENV_ORG{'SSH_AGENT_PID'}
if defined $ENV_ORG{'SSH_AGENT_PID'};
$ENV{'SSH_AUTH_SOCK'} = $ENV_ORG{'SSH_AUTH_SOCK'}
if defined $ENV_ORG{'SSH_AUTH_SOCK'};
$ENV{'SSH_TTY'} = $ENV_ORG{'SSH_TTY'}
if defined $ENV_ORG{'SSH_TTY'};
+
## Run a test build
my $testname = ",test-$version";
***************
*** 224,230 ****
ch_dir($reldir) || die qq/Error: Unable to chdir to "$reldir": $!\n/;
if (!$create) {
! run_prg('cvs', 'export', '-r', $cvstag, '-d', $testname, $project);
} else {
! run_prg('cvs', 'export', '-D', scalar(localtime),
'-d', $testname, $project);
}
--- 227,233 ----
ch_dir($reldir) || die qq/Error: Unable to chdir to "$reldir": $!\n/;
if (!$create) {
! run_prg(@cvs, 'export', '-r', $cvstag, '-d', $testname, $project);
} else {
! run_prg(@cvs, 'export', '-D', scalar(localtime),
'-d', $testname, $project);
}
***************
*** 252,256 ****
push(@args, '-F') if ($override);
push(@args, $cvstag, $project);
! run_prg('cvs', @args);
}
--- 255,259 ----
push(@args, '-F') if ($override);
push(@args, $cvstag, $project);
! run_prg(@cvs, @args);
}
_______________________________________________
MHonArc-dev mailing list
MHonArc-dev(_at_)mail(_dot_)freesoftware(_dot_)fsf(_dot_)org
http://mail.freesoftware.fsf.org/mailman/listinfo/mhonarc-dev