Changeset 4484 for trunk/base

Timestamp:

Jan 6, 2004, 12:02:05 PM (20 years ago)

Author:

jkh

Message:

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

File:

• trunk/base/src/port1.0/portfetch.tcl (modified) (2 diffs)

trunk/base/src/port1.0/portfetch.tcl

@@ -54 +54 @@
 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}"}
 
@@ -259 +259 @@
 # 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"