[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