[102817] users/larryv/base/src/macports1.0/macports_util.tcl
larryv at macports.org
larryv at macports.org
Fri Feb 8 14:21:28 PST 2013
Revision: 102817
https://trac.macports.org/changeset/102817
Author: larryv at macports.org
Date: 2013-02-08 14:21:28 -0800 (Fri, 08 Feb 2013)
Log Message:
-----------
[sandbox] macports_util.tcl: Remove trailing whitespace.
Modified Paths:
--------------
users/larryv/base/src/macports1.0/macports_util.tcl
Modified: users/larryv/base/src/macports1.0/macports_util.tcl
===================================================================
--- users/larryv/base/src/macports1.0/macports_util.tcl 2013-02-08 22:14:54 UTC (rev 102816)
+++ users/larryv/base/src/macports1.0/macports_util.tcl 2013-02-08 22:21:28 UTC (rev 102817)
@@ -15,7 +15,7 @@
# 3. Neither the name of The MacPorts Project nor the names of its contributors
# may be used to endorse or promote products derived from this software
# without specific prior written permission.
-#
+#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
@@ -39,7 +39,7 @@
###################
proc method_wrap {name} {
variable argdefault
-
+
set name [list $name]
# reconstruct the args list
set args [uplevel 1 [subst -nocommands {info args $name}]]
@@ -109,7 +109,7 @@
if {${badrange?}} {
error "list index out of range"
}
-
+
if {[llength $args] > 1} {
set list [uplevel 1 [subst -nocommands {lindex [set $varName] $idx}]]
set item [eval ldindex list [lrange $args 1 end]]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130208/51b4db00/attachment.html>
More information about the macports-changes
mailing list