[50721] trunk/base/src/port1.0/portutil.tcl

[jmr at macports.org]

Revision: 50721
          http://trac.macports.org/changeset/50721
Author:   jmr at macports.org
Date:     2009-05-07 15:03:45 -0700 (Thu, 07 May 2009)
Log Message:
-----------
Catch some broken platform statements too (see r50719)

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

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2009-05-07 21:53:08 UTC (rev 50720)
+++ trunk/base/src/port1.0/portutil.tcl	2009-05-07 22:03:45 UTC (rev 50721)
@@ -642,6 +642,9 @@
     global all_variants PortInfo os.platform os.arch os.version os.major
 
     set len [llength $args]
+    if {$len < 2} {
+        return -code error "Malformed platform variant specification"
+    }
     set code [lindex $args end]
     set os [lindex $args 0]
     set args [lrange $args 1 [expr $len - 2]]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090507/61293cdd/attachment-0001.html>