[59839] trunk/base/src/port/port.tcl

[jmr at macports.org]

Revision: 59839
          http://trac.macports.org/changeset/59839
Author:   jmr at macports.org
Date:     2009-10-23 15:20:43 -0700 (Fri, 23 Oct 2009)
Log Message:
-----------
avoid setting LINES and COLUMNS to 0 (#22142)

Modified Paths:
--------------
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2009-10-23 21:20:58 UTC (rev 59838)
+++ trunk/base/src/port/port.tcl	2009-10-23 22:20:43 UTC (rev 59839)
@@ -435,11 +435,11 @@
         if {[isatty stdout]} {
             set size [term_get_size stdout]
 
-            if {![info exists env(LINES)]} {
+            if {![info exists env(LINES)] && [lindex $size 0] > 0} {
                 set env(LINES) [lindex $size 0]
             }
 
-            if {![info exists env(COLUMNS)]} {
+            if {![info exists env(COLUMNS)] && [lindex $size 1] > 0} {
                 set env(COLUMNS) [lindex $size 1]
             }
         }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20091023/8840960d/attachment.html>