Changeset 4484


Ignore:
Timestamp:
Jan 6, 2004, 12:02:05 PM (17 years ago)
Author:
jkh
Message:

OK, the pserver code path works again. A bad variable reference in 1.77
snuck by me there.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portfetch.tcl

    r4483 r4484  
    5454default cvs.module {$distname}
    5555default cvs.tag HEAD
    56 default cvs.env {CVS_PASSFILE=${worksrcpath}/.cvspass}
     56default cvs.env {CVS_PASSFILE=${workpath}/.cvspass}
    5757default cvs.pre_args {"-f -d ${cvs.root}"}
    5858
     
    259259# information in a custom .cvspass file
    260260proc cvsfetch {args} {
    261     global workpath cvs.password cvs.args cvs.post_args cvs.tag cvs.module cvs.cmd cvs.env
     261    global workpath cvs.password cvs.args cvs.post_args cvs.tag cvs.module cvs.cmd cvs.env cvs.root
    262262    cd $workpath
    263     if {[regexp ^:pserver: cvs.root]} {
     263    exec touch .cvspass
     264    if {[regexp ^:pserver: ${cvs.root}]} {
    264265        set cvs.args login
    265266        set cvs.cmd "echo ${cvs.password} | /usr/bin/env ${cvs.env} cvs"
Note: See TracChangeset for help on using the changeset viewer.