mhonarc-commits
[Top] [All Lists]

CVS: devtools/bin release,1.14,1.15

2002-05-07 17:09:55
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