[60295] trunk/base/src/port1.0/portclean.tcl
snc at macports.org
snc at macports.org
Sun Nov 8 09:59:28 PST 2009
Revision: 60295
http://trac.macports.org/changeset/60295
Author: snc at macports.org
Date: 2009-11-08 09:59:27 -0800 (Sun, 08 Nov 2009)
Log Message:
-----------
clean up comments
Modified Paths:
--------------
trunk/base/src/port1.0/portclean.tcl
Modified: trunk/base/src/port1.0/portclean.tcl
===================================================================
--- trunk/base/src/port1.0/portclean.tcl 2009-11-08 17:54:12 UTC (rev 60294)
+++ trunk/base/src/port1.0/portclean.tcl 2009-11-08 17:59:27 UTC (rev 60295)
@@ -208,7 +208,7 @@
}
if {[info exists ports_version_glob]} {
- # Match all possible archive variatns that match the version
+ # Match all possible archive variants that match the version
# glob specified by the user for this OS.
set fileglob "$name-[option ports_version_glob]*.${configure.build_arch}.*"
} else {
@@ -217,7 +217,7 @@
# version glob argument to clean.
#
# We do this because if we don't, then ports that match the
- # first part of the name (e.g. trying to remove foo-*, it will
+ # first part of the name (e.g. trying to remove foo-* will
# pick up anything foo-bar-* as well, which is undesirable).
set fileglob "$name-$version*.${configure.build_arch}.*"
}
@@ -228,7 +228,7 @@
foreach path $archivelist {
set file [file tail $path]
# Make sure file is truly a port archive file, and not
- # and accidental match with some other file that might exist.
+ # an accidental match with some other file that might exist.
if {[regexp "^$name-\[-_a-zA-Z0-9\.\]+_\[0-9\]*\[+-_a-zA-Z0-9\]*\[\.\]${configure.build_arch}\[\.\]\[a-z2\]+\$" $file]} {
if {[file isfile $path]} {
ui_debug "Removing archive: $path"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20091108/15b5bd3c/attachment.html>
More information about the macports-changes
mailing list