Changeset 14425 for trunk/base

Timestamp:

Oct 5, 2005, 4:28:05 AM (19 years ago)

Author:

pguyot (Paul Guyot)

Message:

Fix a problem where fetching would only work with -v.
Can you reproduce the problem now, Charlie?

File:

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

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

@@ -1 +1 @@
 # et:ts=4
 # portfetch.tcl
-# $Id: portfetch.tcl,v 1.105 2005/10/04 17:08:26 pguyot Exp $
+# $Id: portfetch.tcl,v 1.106 2005/10/05 04:28:05 pguyot Exp $
 #
 # Copyright (c) 2002 - 2003 Apple Computer, Inc.
@@ -376 +376 @@
         }
         
+        set fetch_options {}
         if {[string length ${fetch.user}] || [string length ${fetch.password}]} {
                 lappend fetch_options -u