Skip to content
Permalink
Browse files

OK, the pserver code path works again. A bad variable reference in 1.77

snuck by me there.

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@4484 d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
Jordan K. Hubbard
Jordan K. Hubbard committed Jan 6, 2004
1 parent c44a172 commit b7860b4ab9cf0b22912550dbbbd7f8f927cc944c
Showing with 4 additions and 3 deletions.
  1. +4 −3 src/port1.0/portfetch.tcl
@@ -53,7 +53,7 @@ default cvs.password ""
default cvs.dir {${workpath}}
default cvs.module {$distname}
default cvs.tag HEAD
default cvs.env {CVS_PASSFILE=${worksrcpath}/.cvspass}
default cvs.env {CVS_PASSFILE=${workpath}/.cvspass}
default cvs.pre_args {"-f -d ${cvs.root}"}

default fetch.cmd curl
@@ -258,9 +258,10 @@ proc checkfiles {args} {
# Perform a CVS login and fetch, storing the CVS login
# information in a custom .cvspass file
proc cvsfetch {args} {
global workpath cvs.password cvs.args cvs.post_args cvs.tag cvs.module cvs.cmd cvs.env
global workpath cvs.password cvs.args cvs.post_args cvs.tag cvs.module cvs.cmd cvs.env cvs.root
cd $workpath
if {[regexp ^:pserver: cvs.root]} {
exec touch .cvspass
if {[regexp ^:pserver: ${cvs.root}]} {
set cvs.args login
set cvs.cmd "echo ${cvs.password} | /usr/bin/env ${cvs.env} cvs"
# XXX cvs will request a password from the tty using getpass()

0 comments on commit b7860b4

Please sign in to comment.
You can’t perform that action at this time.