Changeset 15616 for trunk/base

Timestamp:

Dec 29, 2005, 2:34:36 AM (18 years ago)

Author:

olegb

Message:

Bug:
Submitted by:
Reviewed by:
Approved by:
Obtained from:
make port(1) exit gracefully when doing: port installed with no
ports installed

File:

• trunk/base/src/port/port.tcl (modified) (2 diffs)

trunk/base/src/port/port.tcl

@@ -3 +3 @@
 exec @TCLSH@ "$0" "$@"
 # port.tcl
-# $Id: port.tcl,v 1.143 2005/10/30 16:21:02 jberry Exp $
+# $Id: port.tcl,v 1.144 2005/12/29 02:34:36 olegb Exp $
 #
 # Copyright (c) 2004 Robert Shaw <rshaw@opendarwin.org>
@@ -1436 +1436 @@
                 if {$result == "Registry error: No ports registered as installed."} {
                     puts "No ports are installed!"
+                                        set ilist {}
                 } else {
                                         global errorInfo