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

raimue at macports.org raimue at macports.org
Wed Jun 11 05:58:37 PDT 2008


Revision: 37526
          http://trac.macosforge.org/projects/macports/changeset/37526
Author:   raimue at macports.org
Date:     2008-06-11 05:58:33 -0700 (Wed, 11 Jun 2008)

Log Message:
-----------
port/port.tcl:
If env(COLUMNS) is not available, do not wrap.
See #15488.

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

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2008-06-11 10:43:03 UTC (rev 37525)
+++ trunk/base/src/port/port.tcl	2008-06-11 12:58:33 UTC (rev 37526)
@@ -408,10 +408,6 @@
             regexp {(\d+) (\d+)} $err -> rows cols
             set env(COLUMNS) $cols
             set env(LINES) $rows
-        } else {
-            puts stderr "Warning: Unable to get terminal size, using 80x24!"
-            set cols 80
-            set rows 24
         }
     }
 }
@@ -429,6 +425,10 @@
     global env
 
     if {$maxlen == 0} {
+        if {![info exists env(COLUMNS)]} {
+            # no width for wrapping
+            return $string
+        }
         set maxlen $env(COLUMNS)
     }
 
@@ -452,6 +452,10 @@
     global env
 
     if {$maxlen == 0} {
+        if {![info exists env(COLUMNS)]} {
+            # no width for wrapping
+            return $string
+        }
         set maxlen $env(COLUMNS)
     }
 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080611/dbaba153/attachment.htm 


More information about the macports-changes mailing list