Revision: 117233 https://trac.macports.org/changeset/117233 Author: cal@macports.org Date: 2014-02-19 15:50:54 -0800 (Wed, 19 Feb 2014) Log Message: ----------- port.tcl: make term::ansi::send from tcllib an optional dependency for Leopard compatibility Modified Paths: -------------- trunk/base/src/port/port.tcl Modified: trunk/base/src/port/port.tcl =================================================================== --- trunk/base/src/port/port.tcl 2014-02-19 23:23:13 UTC (rev 117232) +++ trunk/base/src/port/port.tcl 2014-02-19 23:50:54 UTC (rev 117233) @@ -34,15 +34,22 @@ # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. -package require term::ansi::send +# Create a namespace for some local variables +namespace eval portclient::progress { + ## + # Indicate whether the term::ansi::send tcllib package is available and was + # imported. "yes", if the package is available, "no" otherwise. + variable hasTermAnsiSend no +} +if {![catch {package require term::ansi::send}]} { + set portclient::progress::hasTermAnsiSend yes +} + source [file join "@macports_tcl_dir@" macports1.0 macports_fastload.tcl] package require macports package require Pextlib 1.0 -# Create a namespace for some local variables -namespace eval portclient {} - # Standard procedures proc print_usage {{verbose 1}} { global cmdname @@ -5158,7 +5165,9 @@ exit 1 } -if {[isatty stdout] && (![info exists ui_options(ports_quiet)] || $ui_options(ports_quiet) ne "yes")} { +if {[isatty stdout] + && $portclient::progress::hasTermAnsiSend eq yes + && (![info exists ui_options(ports_quiet)] || $ui_options(ports_quiet) ne "yes")} { set ui_options(progress_download) portclient::progress::download set ui_options(progress_generic) portclient::progress::generic }