[53712] trunk/base/src

jmr at macports.org jmr at macports.org
Sun Jul 12 09:14:25 PDT 2009


Revision: 53712
          http://trac.macports.org/changeset/53712
Author:   jmr at macports.org
Date:     2009-07-12 09:14:24 -0700 (Sun, 12 Jul 2009)
Log Message:
-----------
fix returning of status codes for several action procs

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2009-07-12 14:59:39 UTC (rev 53711)
+++ trunk/base/src/macports1.0/macports.tcl	2009-07-12 16:14:24 UTC (rev 53712)
@@ -2654,6 +2654,7 @@
 
     # close the port handle
     mportclose $workername
+    return 0
 }
 
 # upgrade_dependencies: helper proc for upgrade

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2009-07-12 14:59:39 UTC (rev 53711)
+++ trunk/base/src/port/port.tcl	2009-07-12 16:14:24 UTC (rev 53712)
@@ -1344,6 +1344,7 @@
             return 1
         }
     }
+    return 0
 }
 
 
@@ -1755,6 +1756,7 @@
         return 1
     }
 
+    set status 0
     foreachport $portlist {
         if {$porturl eq ""} {
             # Look up the port.
@@ -1815,6 +1817,7 @@
             }
         }
     }
+    return $status
 }
 
 
@@ -2005,6 +2008,7 @@
     }
     # shared depscache for all ports in the list
     array set depscache {}
+    set status 0
     foreachport $portlist {
         if {![registry::entry_exists_for_name $portname]} {
             break_softcontinue "$portname is not installed" 1 status
@@ -2058,6 +2062,7 @@
 
     registry::open_dep_map
 
+    set status 0
     foreachport $portlist {
         set composite_version [composite_version $portversion [array get variations]]
         if { [catch {set ilist [registry::installed $portname $composite_version]} result] } {
@@ -2085,7 +2090,7 @@
             ui_msg "$portname has no dependents!"
         }
     }
-    return 0
+    return $status
 }
 
 
@@ -2114,7 +2119,7 @@
         }
     }
 
-    return 0
+    return $status
 }
 
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090712/9439ccdb/attachment-0001.html>


More information about the macports-changes mailing list