[MHonArc-dev] CVS: devtools/bin release,1.14,1.15

[Earl Hood <address@hidden>]

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);
    }