From 36f3f5884eb90fcaacd5aefe78b3c730683b076c Mon Sep 17 00:00:00 2001 From: Joshua Root Date: Thu, 28 Jul 2011 00:50:08 +0000 Subject: [PATCH] mpab: better error handling in subports.tcl git-svn-id: https://svn.macports.org/repository/macports/contrib/mpab@81236 d073be05-634f-4543-b044-5fe20cf6d1d6 --- subports.tcl | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/subports.tcl b/subports.tcl index b60769d..3013412 100755 --- a/subports.tcl +++ b/subports.tcl @@ -40,17 +40,21 @@ package require macports if {[catch {mportinit "" "" ""} result]} { ui_error "$errorInfo" - fatal "Failed to initialize ports sytem: $result" + ui_error "Failed to initialize ports sytem: $result" + exit 1 } if {[llength $::argv] == 0} { - fatal "Usage: $argv0 " + puts stderr "Usage: $argv0 " + exit 1 } set portname [lindex $::argv 0] -if {[catch {set one_result [mportlookup $portname]}]} { - fatal "lookup failed for port: $portname" +if {[catch {set one_result [mportlookup $portname]}] || [llength $one_result] < 2} { + # just pass it through, MPAB will complain about it later + puts $portname + exit 0 } puts [lindex $one_result 0] array set portinfo [lindex $one_result 1]