[23552] trunk/base/src/port1.0/portfetch.tcl

[source_changes at macosforge.org]

Revision: 23552
          http://trac.macosforge.org/projects/macports/changeset/23552
Author:   pguyot at kallisys.net
Date:     2007-04-04 02:07:12 -0700 (Wed, 04 Apr 2007)

Log Message:
-----------
Fixed a bug in the CVS fetch command introduced by the new command code.

Modified Paths:
--------------
    trunk/base/src/port1.0/portfetch.tcl

Modified: trunk/base/src/port1.0/portfetch.tcl
===================================================================
--- trunk/base/src/port1.0/portfetch.tcl	2007-04-04 09:03:33 UTC (rev 23551)
+++ trunk/base/src/port1.0/portfetch.tcl	2007-04-04 09:07:12 UTC (rev 23552)
@@ -315,18 +315,15 @@
 
     if {[regexp ^:pserver: ${cvs.root}]} {
 	set savecmd ${cvs.cmd}
-	set saveenv ${cvs.env}
 	set saveargs ${cvs.args}
 	set savepost_args ${cvs.post_args}
-	set cvs.cmd "echo ${cvs.password} | /usr/bin/env ${cvs.env} $portutil::autoconf::cvs_path"
-	set cvs.env ""
+	set cvs.cmd "echo ${cvs.password} | $portutil::autoconf::cvs_path"
 	set cvs.args login
 	set cvs.post_args ""
 	if {[catch {command_exec cvs -notty "" "2>&1"} result]} {
 	    return -code error [msgcat::mc "CVS login failed"]
 	}
 	set cvs.cmd ${savecmd}
-	set cvs.env ${saveenv}
 	set cvs.args ${saveargs}
 	set cvs.post_args ${savepost_args}
     } else {

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070404/5d93a84d/attachment.html